(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    485762,       9841]
NotebookOptionsPosition[    463312,       9292]
NotebookOutlinePosition[    480035,       9649]
CellTagsIndexPosition[    479931,       9643]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Parametric Curves", "MainTitle",
 CellChangeTimes->{{3.663664140783072*^9, 3.663664147121434*^9}},
 CellTags->"2.3"],

Cell["The function with scalar variable and vector value: ", "Text",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
  3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
  3.4142612485334463`*^9}, {3.663664166782559*^9, 3.663664288009493*^9}}],

Cell[TextData[{
 " ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"F", ":", " ", "R"}], "\[Rule]", 
    SuperscriptBox[
     RowBox[{"R", " "}], "n"]}], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
  3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
  3.4142612485334463`*^9}, {3.663664166782559*^9, 3.663664297895058*^9}}],

Cell[TextData[{
 "R: parameter space",
 "\n",
 Cell[BoxData[
  FormBox[
   SuperscriptBox[
    RowBox[{"R", " "}], "n"], TraditionalForm]]],
 ": image (phase) space"
}], "Text",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
   3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
   3.4142612485334463`*^9}, {3.663664166782559*^9, 3.6636643144730062`*^9}, 
   3.663664419543016*^9}],

Cell[TextData[{
 "The image of the function in the phase space: ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "t", ")"}], TraditionalForm]]],
 " is called parametric curve."
}], "Text",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
   3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
   3.4142612485334463`*^9}, {3.663664166782559*^9, 3.663664408516385*^9}, 
   3.6636644417872887`*^9, 3.66366465231733*^9, 3.663666388011606*^9, {
   3.663666456698535*^9, 3.663666463734937*^9}}],

Cell[TextData[{
 "Graph in the extended phase space:",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"F", "(", "t", ")"}]}], "}"}], "\[Element]", 
     RowBox[{"R", "\[Times]", 
      SuperscriptBox["R", "n"]}]}]}], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
   3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
   3.4142612485334463`*^9}, {3.663664166782559*^9, 3.663664408516385*^9}, 
   3.6636644417872887`*^9, {3.66366465231733*^9, 3.6636647062684155`*^9}, {
   3.663666447161989*^9, 3.663666490372461*^9}}],

Cell[CellGroupData[{

Cell["Interpretation", "Section",
 CellChangeTimes->{{3.66366639192883*^9, 3.663666407030694*^9}}],

Cell[CellGroupData[{

Cell["The PATH of the motion in the Phase space!", "Item",
 CellChangeTimes->{{3.6636664090968122`*^9, 3.6636664386135006`*^9}, {
   3.6636665113606615`*^9, 3.663666511364661*^9}, 3.6636665434324956`*^9}],

Cell["Independent variable: t (time)", "Item",
 CellChangeTimes->{{3.6636664090968122`*^9, 3.6636664386135006`*^9}, {
  3.6636665113606615`*^9, 3.663666569524988*^9}, {3.663667319989912*^9, 
  3.6636673199929123`*^9}}],

Cell[TextData[{
 "velocity, tangent vector of the curve ",
 Cell[BoxData[
  FormBox[
   RowBox[{"F", "(", "t", ")"}], TraditionalForm]]],
 ": derivative:",
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     RowBox[{"F", "'"}], 
     RowBox[{"(", "t", ")"}]}]}], TraditionalForm]]],
 "  (differentiate coordinatewise)"
}], "Item",
 CellChangeTimes->{{3.6636664090968122`*^9, 3.6636664386135006`*^9}, {
  3.6636665113606615`*^9, 3.663666569524988*^9}, {3.663667319989912*^9, 
  3.6636674212337027`*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["An example: a  spiral", "MainSection",
 CellChangeTimes->{{3.663666313064319*^9, 3.6636663684674883`*^9}, 
   3.6636667777258964`*^9}],

Cell[CellGroupData[{

Cell["logarithmic spiral", "WolframAlphaLong",
 CellChangeTimes->{{3.6636668116768384`*^9, 3.6636668194062805`*^9}},
 CellLabel->"In[21]:="],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "logarithmic spiral", Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {30, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
    
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Entity[\"PlaneCurve\", \"LogarithmicSpiral\"]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             FormBox[
              StyleBox[
               TemplateBox[{
                 TagBox[
                  TagBox["\"logarithmic spiral\"", 
                   $CellContext`TagBoxWrapper[
                   "Entity" -> {"PlaneCurve", "LogarithmicSpiral"}]], 
                  Identity], "\" \"", 
                 StyleBox[
                  
                  RowBox[{
                   "\"(\"", "\[NoBreak]", "\"plane curve\"", "\[NoBreak]", 
                    "\")\""}], {
                   GrayLevel[0.6], 
                   LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                   0}, StripOnInput -> False]}, "RowDefault"], LineIndent -> 
               0], TraditionalForm], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata"}]}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Example plots", "scanner" -> "Data", "id" -> 
     "PlotPod:PlaneCurve", "position" -> "200", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> True, "string" -> False}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{{}, {{
                    InsetBox[
                    GraphicsBox[{{{}, {}, {
                    Hue[0.67, 0.6, 0.6], 
                    Directive[
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJw0l3c81t///43L3mTvPSohyYhztKTIjErvklFCURQKRULKaGgpWxShyOac
[encoded data, 32880 characters]
Yb1ggwv8iu1gbMhnQOqtuZV3nrlA9i7j9OfODPjuB7/0vrnA/3f2cig=
                    
                    "]]}}}, {GridLines -> Dynamic[
                    Map[{{#, 
                    GrayLevel[0.7]}}& , 
                    MousePosition[{"Graphics", Graphics}, None]]], 
                    Method -> {"GridLinesInFront" -> True}, Axes -> True, 
                    AxesLabel -> {
                    FormBox["x", TraditionalForm], 
                    FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, 
                    ImageSize -> {{400}, {200}}, Method -> {}, PlotLabel -> 
                    FormBox[
                    InterpretationBox[
                    Cell[
                    BoxData[
                    FormBox[
                    StyleBox[
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"a\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "1"}], "\", \""}, "RowDefault"], 
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"b\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "0.2`"}]}, "RowDefault"]}, "RowDefault"], 
                    
                    GrayLevel[0.5], StripOnInput -> False], TraditionalForm]],
                     PageWidth -> 150, TextAlignment -> Center], 
                    TextCell[
                    Style[
                    Row[{
                    Row[{Style["a", Italic] == 1, ", "}], 
                    Row[{Style["b", Italic] == 0.2}]}], 
                    GrayLevel[0.5]], PageWidth -> 150, TextAlignment -> 
                    Center]], TraditionalForm], 
                    PlotRange -> {{-23.60500615186873, 
                    44.24660528698498}, {-32.31781807832143, 
                    25.667801786664562`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {
                    Scaled[0.02], 
                    Scaled[0.02]}, Ticks -> None}], {
                    124.8155186923282, -105.}, 
                    ImageScaled[{0.5, 0.5}], {234.02909754811537`, 200}], 
                    InsetBox[
                    GraphicsBox[{{{}, {}, {
                    Hue[0.67, 0.6, 0.6], 
                    Directive[
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJw0l3c81V/4wHHNJFtWNjd7z/B5kJGRvfcemaWvlF0pRLu0pVIkDRSh+yiV
[encoded data, 33000 characters]
Aecim0BXl1XnZNZL+B+4GVlO
                    "]]}}}, {GridLines -> Dynamic[
                    Map[{{#, 
                    GrayLevel[0.7]}}& , 
                    MousePosition[{"Graphics", Graphics}, None]]], 
                    Method -> {"GridLinesInFront" -> True}, Axes -> True, 
                    AxesLabel -> {
                    FormBox["x", TraditionalForm], 
                    FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, 
                    ImageSize -> {{400}, {200}}, Method -> {}, PlotLabel -> 
                    FormBox[
                    InterpretationBox[
                    Cell[
                    BoxData[
                    FormBox[
                    StyleBox[
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"a\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "1"}], "\", \""}, "RowDefault"], 
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"b\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "0.5`"}]}, "RowDefault"]}, "RowDefault"], 
                    
                    GrayLevel[0.5], StripOnInput -> False], TraditionalForm]],
                     PageWidth -> 150, TextAlignment -> Center], 
                    TextCell[
                    Style[
                    Row[{
                    Row[{Style["a", Italic] == 1, ", "}], 
                    Row[{Style["b", Italic] == 0.5}]}], 
                    GrayLevel[0.5]], PageWidth -> 150, TextAlignment -> 
                    Center]], TraditionalForm], 
                    PlotRange -> {{-1103.1001869367078`, 
                    1514.9756255610841`}, {-1273.4554454100899`, 
                    1411.6863470667834`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {
                    Scaled[0.02], 
                    Scaled[0.02]}, Ticks -> None}], {
                    374.4465560769846, -105.}, 
                    ImageScaled[{0.5, 0.5}], {195.00466007664969`, 200}]}}, {
                   Directive[Antialiasing -> False], 
                   GrayLevel[0.85], {{
                    LineBox[{{0, 0}, {0, -210.}}]}, {
                    LineBox[{{249.6310373846564, 0}, {
                    249.6310373846564, -210.}}]}, {
                    
                    LineBox[{{499.2620747693128, 0}, {
                    499.2620747693128, -210.}}]}, {
                    LineBox[{{0, 0}, {249.6310373846564, 0}}]}, {
                    
                    LineBox[{{249.6310373846564, 0}, {
                    499.2620747693128, 0}}]}, {
                    LineBox[{{0, -210.}, {249.6310373846564, -210.}}]}, {
                    
                    LineBox[{{249.6310373846564, -210.}, {
                    499.2620747693128, -210.}}]}}}}, ImageSize -> 400, 
                 PlotRangePadding -> {6, 5}, ContentSelectable -> True, 
                 ImageSize -> 400]}, {
                PaneBox[
                 TagBox[
                  StyleBox[
                   RowBox[{"\"(\"", "\[NoBreak]", 
                    FormBox[
                    TagBox[
                    FormBox[
                    
                    TemplateBox[{
                    "\"plotted for \"", "t", "\" from \"", "0", "\" to \"", 
                    "20"}, "RowDefault"], TraditionalForm], 
                    Format[#, TraditionalForm]& ], TraditionalForm], 
                    "\[NoBreak]", "\")\""}], {
                   FontFamily -> "Verdana", FontSize -> 10, 
                    GrayLevel[0.5], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}, StripOnInput -> False], 
                  $CellContext`TagBoxWrapper["Label"]], 
                 BaseStyle -> {LineIndent -> 0}]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {}]}], 
       XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Fewer examples", "input" -> 
         "PlotPod:PlaneCurve__Fewer examples"}, {}]}]}], Typeset`pod3$$ = 
   XMLElement[
   "pod", {"title" -> "Alternate names", "scanner" -> "Data", "id" -> 
     "AlternateNamesPod:PlaneCurve", "position" -> "300", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{"\"equiangular spiral\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"golden spiral\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"growth curve\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"spira mirabilis\""}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Equations", "scanner" -> "Data", "id" -> 
     "EquationsPod:PlaneCurve", "position" -> "400", "error" -> "false", 
     "numsubpods" -> "2"}, {
     XMLElement["subpod", {"title" -> "Parametric equations"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              GridBox[{{
                 RowBox[{
                   RowBox[{"x", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"b", " ", "t"}]], " ", 
                    RowBox[{"cos", "(", "t", ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}, {
                 RowBox[{
                   RowBox[{"y", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"b", " ", "t"}]], " ", 
                    RowBox[{"sin", "(", "t", ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{"\[LongEqual]"}}, 
                 "Rows" -> {{"\[LongEqual]"}}}, AllowScriptLevelChange -> 
               False, DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{1}}}], "Column"], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["subpod", {"title" -> "Polar equation"}, {
       XMLElement["minput", {}, {"a E^(b \[Theta])"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               RowBox[{"r", "(", "\[Theta]", ")"}], "\[LongEqual]", 
               StyleBox[
                RowBox[{"a", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"b", " ", "\[Theta]"}]]}], {
                 GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                 LineIndent -> 0}, StripOnInput -> False]}], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "More", "input" -> 
         "EquationsPod:PlaneCurve__More"}, {}]}]}], Typeset`pod5$$ = 
   XMLElement[
   "pod", {"title" -> "Properties", "scanner" -> "Data", "id" -> 
     "PropertiesPod:PlaneCurve", "position" -> "500", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               TagBox[
                TagBox["\"parametric\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Parametric"}]], Identity], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               TagBox[
                TagBox["\"spiral\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Spiral"}]], Identity]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Basic properties", "scanner" -> "Data", "id" -> 
     "BasicPropertiesPod:PlaneCurve", "position" -> "600", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Area enclosed"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             TagBox[
              StyleBox[
               
               RowBox[{
                "\"(\"", "\[NoBreak]", "\"data not available\"", "\[NoBreak]",
                  "\")\""}], {
                GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                LineIndent -> 0}, StripOnInput -> False], 
              $CellContext`TagBoxWrapper["Missing" -> "DataNotAvailable"]], 
             TraditionalForm], TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate form", "input" -> 
         "BasicPropertiesPod:PlaneCurve__Approximate form"}, {}]}]}], 
   Typeset`pod7$$ = XMLElement[
   "pod", {"title" -> "Related entities", "scanner" -> "Data", "id" -> 
     "RelatedEntitiesPod:PlaneCurve", "position" -> "700", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Associated people"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               FormBox[
                TagBox[
                 TagBox["\"Ren\[EAcute] Descartes\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "ReneDescartes::x2xj8"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Evangelista Torricelli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "EvangelistaTorricelli::7bbd3"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Jacob Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JacobBernoulli::gpbw5"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Johann Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JohannBernoulli::772rn"}]], Identity], 
                TraditionalForm]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False}, True}, Typeset`aux3$$ = {True, False, {False}, True},
    Typeset`aux4$$ = {True, False, {False, False}, True}, Typeset`aux5$$ = {
   True, False, {False}, True}, Typeset`aux6$$ = {True, False, {False}, True},
    Typeset`aux7$$ = {True, False, {False}, True}, Typeset`asyncpods$$ = {}, 
   Typeset`nonpods$$ = {
    XMLElement["sources", {"count" -> "2"}, {
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PlaneCurveSourceInformationNotes.\
html", "text" -> "Plane curve"}, {}], 
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PeopleDataSourceInformationNotes.\
html", "text" -> "People data"}, {}]}]}, Typeset`initdone$$ = True, 
   Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "7", "datatypes" -> 
    "People,PlaneCurve", "timedout" -> "", "timedoutpods" -> "", "timing" -> 
    "1.006", "parsetiming" -> "0.169", "parsetimedout" -> "false", 
    "recalculate" -> "", "id" -> 
    "MSPa822205ifcge5f49ci5a0000594ifa48a4cg945a", "host" -> 
    "http://www4b.wolframalpha.com", "server" -> "62", "related" -> 
    "http://www4b.wolframalpha.com/api/v2/relatedQueries.jsp?id=\
MSPa823205ifcge5f49ci5a00001hh9abab66d8977h&s=62", "version" -> "2.6"}, 
   Typeset`sessioninfo$$ = {
   "TimeZone" -> 1., 
    "Date" -> {2016, 2, 5, 14, 13, 41.6994115`9.372704803189745}, "Line" -> 
    21, "SessionID" -> 21459186246672879149}, Typeset`showpods$$ = {1, 2, 3, 
   4, 5, 6, 7}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = "logarithmic spiral"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$}, Typeset`chosen$$, 
        Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, 
        Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, 
        Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], 
     StandardForm],
    ImageSizeCache->{1112., {491., 505.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; 
     WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$}], 
       Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print",
 CellMargins->{{20, 10}, {Inherited, Inherited}},
 CellChangeTimes->{3.6636668219224243`*^9}]
}, Closed]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"spiral", "(", 
      RowBox[{"t_", ",", "k"}], ")"}], "=", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "k"}], " ", "t"}]], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cos", "(", "t", ")"}], ",", 
        RowBox[{"sin", "(", "t", ")"}]}], "}"}]}]}], ")"}], TraditionalForm]]],
 " \nin polar coordainates: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"r", "(", "t_", ")"}], "=", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}]]}], " ", ")"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663666675059024*^9, 
  3.663666680869356*^9}, {3.66366678549034*^9, 3.6636667917426977`*^9}, {
  3.6636668608326497`*^9, 3.6636668841329823`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}]], "Input",
 CellLabel->"In[27]:="],

Cell[CellGroupData[{

Cell["Plot : the coordinates", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, {
  3.66366719109254*^9, 3.663667224528452*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"spiral", "[", 
      RowBox[{"t", ",", "k"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "40"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"t", ",", "\"\<x\\ny\>\""}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.05", ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "2"}], "}"}], ",", "0.1", ",", "40", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.6636672364091315`*^9, 3.6636672624576216`*^9}, {
  3.663667525485666*^9, 3.6636675534912677`*^9}, {3.664733864683544*^9, 
  3.6647338751372075`*^9}},
 CellLabel->"In[28]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.172, $CellContext`T$$ = 0.1, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.05, 2}, {{
       Hold[$CellContext`T$$], 2}, 0.1, 40}}, Typeset`size$$ = {
    450., {146., 157.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$27346$$ = 
    0, $CellContext`T$27347$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.05, $CellContext`T$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$27346$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$27347$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`spiral[$CellContext`t, $CellContext`k$$], \
{$CellContext`t, 0, $CellContext`T$$}, PlotRange -> {{0, 40}, {-1, 1}}, 
        AxesLabel -> {$CellContext`t, "x\ny"}], 
      "Specifications" :> {{$CellContext`k$$, 0.05, 2, Appearance -> 
         "Labeled"}, {{$CellContext`T$$, 2}, 0.1, 40, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{515., {224., 235.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`spiral[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`k, 
          Blank[]]] := {
          Cos[$CellContext`t], 
          Sin[$CellContext`t]}/E^($CellContext`k $CellContext`t)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, {3.6636672382662377`*^9, 
   3.6636672647467527`*^9}, {3.66366754934603*^9, 3.6636675539802957`*^9}, 
   3.66473388248132*^9},
 CellLabel->"Out[29]="]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parametric Plot", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, 
   3.6636699842943015`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"spiral", "[", 
      RowBox[{"t", ",", "k"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.05", ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "2"}], "}"}], ",", "0.1", ",", "40", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
   3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
   3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
   3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
   3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
   3.6636699933838215`*^9, 3.6636700124919147`*^9}, 3.6647338945288143`*^9},
 CellLabel->"In[30]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.05, $CellContext`T$$ = 40., 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.05, 2}, {{
       Hold[$CellContext`T$$], 2}, 0.1, 40}}, Typeset`size$$ = {
    313., {151., 162.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$27465$$ = 
    0, $CellContext`T$27466$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.05, $CellContext`T$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$27465$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$27466$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ParametricPlot[
        $CellContext`spiral[$CellContext`t, $CellContext`k$$], \
{$CellContext`t, 0, $CellContext`T$$}, PlotRange -> {{-1, 1}, {-1, 1}}, 
        AxesLabel -> {$CellContext`x, $CellContext`y}, 
        ImageSize -> {250, 250}], 
      "Specifications" :> {{$CellContext`k$$, 0.05, 2, Appearance -> 
         "Labeled"}, {{$CellContext`T$$, 2}, 0.1, 40, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{384., {229., 240.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`spiral[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`k, 
          Blank[]]] := {
          Cos[$CellContext`t], 
          Sin[$CellContext`t]}/E^($CellContext`k $CellContext`t)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.663670005737528*^9, 
   3.6636700131319513`*^9}, 3.6647338962632837`*^9},
 CellLabel->"Out[31]="]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot in the extended phase space, 3D: {t,F(t)}", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636674533225384`*^9, 3.6636674994081745`*^9}, 
   3.663667797241209*^9, 3.663669728167652*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{"ParametricPlot3D", "[", 
     RowBox[{
      RowBox[{"Prepend", "[", 
       RowBox[{
        RowBox[{"spiral", "[", 
         RowBox[{"t", ",", "k"}], "]"}], ",", "t"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "20"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"t", ",", "x", ",", "y"}], "}"}]}], ",", 
      RowBox[{"BoxRatios", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], 
    "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.05", ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "2"}], "}"}], ",", "0.1", ",", "20", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
   3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
   3.663667106112679*^9}, {3.6636675081036716`*^9, 3.663667508751709*^9}, {
   3.663667586549158*^9, 3.663667614621764*^9}, {3.663667662559506*^9, 
   3.663667772295782*^9}, {3.66366782032253*^9, 3.6636678308851337`*^9}, 
   3.664733904826249*^9},
 CellLabel->"In[32]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.05, $CellContext`T$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.05, 2}, {{
       Hold[$CellContext`T$$], 2}, 0.1, 20}}, Typeset`size$$ = {
    450., {179., 188.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$27741$$ = 
    0, $CellContext`T$27742$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.05, $CellContext`T$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$27741$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$27742$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ParametricPlot3D[
         Prepend[
          $CellContext`spiral[$CellContext`t, $CellContext`k$$], \
$CellContext`t], {$CellContext`t, 0, $CellContext`T$$}, 
         PlotRange -> {{0, 20}, {-1, 1}, {-1, 1}}, 
         AxesLabel -> {$CellContext`t, $CellContext`x, $CellContext`y}, 
         BoxRatios -> {2, 1, 1}]], 
      "Specifications" :> {{$CellContext`k$$, 0.05, 2, Appearance -> 
         "Labeled"}, {{$CellContext`T$$, 2}, 0.1, 20, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{515., {256., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`spiral[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`k, 
          Blank[]]] := {
          Cos[$CellContext`t], 
          Sin[$CellContext`t]}/E^($CellContext`k $CellContext`t)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, {3.663667682696658*^9, 
   3.6636677104472446`*^9}, {3.6636677590090227`*^9, 
   3.6636677727288074`*^9}, {3.663667822870675*^9, 3.663667831432165*^9}, 
   3.6647339066700735`*^9},
 CellLabel->"Out[33]="]
}, {2}]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Problems", "MainSection",
 CellChangeTimes->{{3.6636697568692937`*^9, 3.663669766296833*^9}},
 FontColor->RGBColor[1, 0, 0]],

Cell[" How to show the time in the phase space?", "Th-Env",
 CellChangeTimes->{{3.6636697676399097`*^9, 3.6636697952604895`*^9}, {
  3.663670060329651*^9, 3.663670106893314*^9}}],

Cell["How to show the speed?", "Th-Env",
 CellChangeTimes->{{3.6636697676399097`*^9, 3.6636697952604895`*^9}, {
  3.663670060329651*^9, 3.6636700869481735`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Resolve the problems:", "MainSection",
 CellChangeTimes->{{3.6636697568692937`*^9, 3.663669766296833*^9}, {
  3.663670096830738*^9, 3.66367010227805*^9}},
 FontColor->RGBColor[1, 0, 0]],

Cell["Use coloring with respect to the time", "Th-Env",
 CellChangeTimes->{{3.6636697676399097`*^9, 3.6636697952604895`*^9}, {
  3.663670060329651*^9, 3.6636701320267515`*^9}}],

Cell["Draw the tangent vector", "Th-Env",
 CellChangeTimes->{{3.6636697676399097`*^9, 3.6636697952604895`*^9}, {
  3.663670060329651*^9, 3.6636700869481735`*^9}, {3.6636701375010643`*^9, 
  3.663670156896174*^9}}],

Cell["\<\
Stroboscopic plot (draw the ponts at instants at equal distance)\
\>", "Th-Env",
 CellChangeTimes->{{3.6636697676399097`*^9, 3.6636697952604895`*^9}, {
  3.663670060329651*^9, 3.6636700869481735`*^9}, {3.6636701375010643`*^9, 
  3.6636701991845922`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Continue the example: a  spiral", "MainSection",
 CellChangeTimes->{{3.663666313064319*^9, 3.6636663684674883`*^9}, 
   3.6636667777258964`*^9, {3.6636699152873545`*^9, 3.6636699223407583`*^9}}],

Cell[CellGroupData[{

Cell["logarithmic spiral", "WolframAlphaLong",
 CellChangeTimes->{{3.6636668116768384`*^9, 3.6636668194062805`*^9}},
 CellLabel->"In[21]:="],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "logarithmic spiral", Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {30, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
    
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement[
       "minput", {}, {"Entity[\"PlaneCurve\", \"LogarithmicSpiral\"]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             FormBox[
              StyleBox[
               TemplateBox[{
                 TagBox[
                  TagBox["\"logarithmic spiral\"", 
                   $CellContext`TagBoxWrapper[
                   "Entity" -> {"PlaneCurve", "LogarithmicSpiral"}]], 
                  Identity], "\" \"", 
                 StyleBox[
                  
                  RowBox[{
                   "\"(\"", "\[NoBreak]", "\"plane curve\"", "\[NoBreak]", 
                    "\")\""}], {
                   GrayLevel[0.6], 
                   LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                   0}, StripOnInput -> False]}, "RowDefault"], LineIndent -> 
               0], TraditionalForm], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata"}]}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Example plots", "scanner" -> "Data", "id" -> 
     "PlotPod:PlaneCurve", "position" -> "200", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> True, "string" -> False}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{{}, {{
                    InsetBox[
                    GraphicsBox[{{{}, {}, {
                    Hue[0.67, 0.6, 0.6], 
                    Directive[
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJw0l3c81t///43L3mTvPSohyYhztKTIjErvklFCURQKRULKaGgpWxShyOac
[encoded data, 32880 characters]
Yb1ggwv8iu1gbMhnQOqtuZV3nrlA9i7j9OfODPjuB7/0vrnA/3f2cig=
                    
                    "]]}}}, {GridLines -> Dynamic[
                    Map[{{#, 
                    GrayLevel[0.7]}}& , 
                    MousePosition[{"Graphics", Graphics}, None]]], 
                    Method -> {"GridLinesInFront" -> True}, Axes -> True, 
                    AxesLabel -> {
                    FormBox["x", TraditionalForm], 
                    FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, 
                    ImageSize -> {{400}, {200}}, Method -> {}, PlotLabel -> 
                    FormBox[
                    InterpretationBox[
                    Cell[
                    BoxData[
                    FormBox[
                    StyleBox[
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"a\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "1"}], "\", \""}, "RowDefault"], 
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"b\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "0.2`"}]}, "RowDefault"]}, "RowDefault"], 
                    
                    GrayLevel[0.5], StripOnInput -> False], TraditionalForm]],
                     PageWidth -> 150, TextAlignment -> Center], 
                    TextCell[
                    Style[
                    Row[{
                    Row[{Style["a", Italic] == 1, ", "}], 
                    Row[{Style["b", Italic] == 0.2}]}], 
                    GrayLevel[0.5]], PageWidth -> 150, TextAlignment -> 
                    Center]], TraditionalForm], 
                    PlotRange -> {{-23.60500615186873, 
                    44.24660528698498}, {-32.31781807832143, 
                    25.667801786664562`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {
                    Scaled[0.02], 
                    Scaled[0.02]}, Ticks -> None}], {
                    124.8155186923282, -105.}, 
                    ImageScaled[{0.5, 0.5}], {234.02909754811537`, 200}], 
                    InsetBox[
                    GraphicsBox[{{{}, {}, {
                    Hue[0.67, 0.6, 0.6], 
                    Directive[
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJw0l3c81V/4wHHNJFtWNjd7z/B5kJGRvfcemaWvlF0pRLu0pVIkDRSh+yiV
[encoded data, 33000 characters]
Aecim0BXl1XnZNZL+B+4GVlO
                    "]]}}}, {GridLines -> Dynamic[
                    Map[{{#, 
                    GrayLevel[0.7]}}& , 
                    MousePosition[{"Graphics", Graphics}, None]]], 
                    Method -> {"GridLinesInFront" -> True}, Axes -> True, 
                    AxesLabel -> {
                    FormBox["x", TraditionalForm], 
                    FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, 
                    ImageSize -> {{400}, {200}}, Method -> {}, PlotLabel -> 
                    FormBox[
                    InterpretationBox[
                    Cell[
                    BoxData[
                    FormBox[
                    StyleBox[
                    TemplateBox[{
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"a\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "1"}], "\", \""}, "RowDefault"], 
                    TemplateBox[{
                    RowBox[{
                    StyleBox["\"b\"", Italic, StripOnInput -> False], 
                    "\[LongEqual]", "0.5`"}]}, "RowDefault"]}, "RowDefault"], 
                    
                    GrayLevel[0.5], StripOnInput -> False], TraditionalForm]],
                     PageWidth -> 150, TextAlignment -> Center], 
                    TextCell[
                    Style[
                    Row[{
                    Row[{Style["a", Italic] == 1, ", "}], 
                    Row[{Style["b", Italic] == 0.5}]}], 
                    GrayLevel[0.5]], PageWidth -> 150, TextAlignment -> 
                    Center]], TraditionalForm], 
                    PlotRange -> {{-1103.1001869367078`, 
                    1514.9756255610841`}, {-1273.4554454100899`, 
                    1411.6863470667834`}}, PlotRangeClipping -> True, 
                    PlotRangePadding -> {
                    Scaled[0.02], 
                    Scaled[0.02]}, Ticks -> None}], {
                    374.4465560769846, -105.}, 
                    ImageScaled[{0.5, 0.5}], {195.00466007664969`, 200}]}}, {
                   Directive[Antialiasing -> False], 
                   GrayLevel[0.85], {{
                    LineBox[{{0, 0}, {0, -210.}}]}, {
                    LineBox[{{249.6310373846564, 0}, {
                    249.6310373846564, -210.}}]}, {
                    
                    LineBox[{{499.2620747693128, 0}, {
                    499.2620747693128, -210.}}]}, {
                    LineBox[{{0, 0}, {249.6310373846564, 0}}]}, {
                    
                    LineBox[{{249.6310373846564, 0}, {
                    499.2620747693128, 0}}]}, {
                    LineBox[{{0, -210.}, {249.6310373846564, -210.}}]}, {
                    
                    LineBox[{{249.6310373846564, -210.}, {
                    499.2620747693128, -210.}}]}}}}, ImageSize -> 400, 
                 PlotRangePadding -> {6, 5}, ContentSelectable -> True, 
                 ImageSize -> 400]}, {
                PaneBox[
                 TagBox[
                  StyleBox[
                   RowBox[{"\"(\"", "\[NoBreak]", 
                    FormBox[
                    TagBox[
                    FormBox[
                    
                    TemplateBox[{
                    "\"plotted for \"", "t", "\" from \"", "0", "\" to \"", 
                    "20"}, "RowDefault"], TraditionalForm], 
                    Format[#, TraditionalForm]& ], TraditionalForm], 
                    "\[NoBreak]", "\")\""}], {
                   FontFamily -> "Verdana", FontSize -> 10, 
                    GrayLevel[0.5], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}, StripOnInput -> False], 
                  $CellContext`TagBoxWrapper["Label"]], 
                 BaseStyle -> {LineIndent -> 0}]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {}]}], 
       XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Fewer examples", "input" -> 
         "PlotPod:PlaneCurve__Fewer examples"}, {}]}]}], Typeset`pod3$$ = 
   XMLElement[
   "pod", {"title" -> "Alternate names", "scanner" -> "Data", "id" -> 
     "AlternateNamesPod:PlaneCurve", "position" -> "300", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{"\"equiangular spiral\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"golden spiral\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"growth curve\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"spira mirabilis\""}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Equations", "scanner" -> "Data", "id" -> 
     "EquationsPod:PlaneCurve", "position" -> "400", "error" -> "false", 
     "numsubpods" -> "2"}, {
     XMLElement["subpod", {"title" -> "Parametric equations"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              GridBox[{{
                 RowBox[{
                   RowBox[{"x", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"b", " ", "t"}]], " ", 
                    RowBox[{"cos", "(", "t", ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}, {
                 RowBox[{
                   RowBox[{"y", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"b", " ", "t"}]], " ", 
                    RowBox[{"sin", "(", "t", ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{"\[LongEqual]"}}, 
                 "Rows" -> {{"\[LongEqual]"}}}, AllowScriptLevelChange -> 
               False, DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{1}}}], "Column"], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["subpod", {"title" -> "Polar equation"}, {
       XMLElement["minput", {}, {"a E^(b \[Theta])"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               RowBox[{"r", "(", "\[Theta]", ")"}], "\[LongEqual]", 
               StyleBox[
                RowBox[{"a", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"b", " ", "\[Theta]"}]]}], {
                 GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                 LineIndent -> 0}, StripOnInput -> False]}], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "More", "input" -> 
         "EquationsPod:PlaneCurve__More"}, {}]}]}], Typeset`pod5$$ = 
   XMLElement[
   "pod", {"title" -> "Properties", "scanner" -> "Data", "id" -> 
     "PropertiesPod:PlaneCurve", "position" -> "500", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               TagBox[
                TagBox["\"parametric\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Parametric"}]], Identity], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               TagBox[
                TagBox["\"spiral\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Spiral"}]], Identity]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Basic properties", "scanner" -> "Data", "id" -> 
     "BasicPropertiesPod:PlaneCurve", "position" -> "600", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Area enclosed"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            FormBox[
             TagBox[
              StyleBox[
               
               RowBox[{
                "\"(\"", "\[NoBreak]", "\"data not available\"", "\[NoBreak]",
                  "\")\""}], {
                GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                LineIndent -> 0}, StripOnInput -> False], 
              $CellContext`TagBoxWrapper["Missing" -> "DataNotAvailable"]], 
             TraditionalForm], TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate form", "input" -> 
         "BasicPropertiesPod:PlaneCurve__Approximate form"}, {}]}]}], 
   Typeset`pod7$$ = XMLElement[
   "pod", {"title" -> "Related entities", "scanner" -> "Data", "id" -> 
     "RelatedEntitiesPod:PlaneCurve", "position" -> "700", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Associated people"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               FormBox[
                TagBox[
                 TagBox["\"Ren\[EAcute] Descartes\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "ReneDescartes::x2xj8"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Evangelista Torricelli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "EvangelistaTorricelli::7bbd3"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Jacob Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JacobBernoulli::gpbw5"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Johann Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JohannBernoulli::772rn"}]], Identity], 
                TraditionalForm]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False}, True}, Typeset`aux3$$ = {True, False, {False}, True},
    Typeset`aux4$$ = {True, False, {False, False}, True}, Typeset`aux5$$ = {
   True, False, {False}, True}, Typeset`aux6$$ = {True, False, {False}, True},
    Typeset`aux7$$ = {True, False, {False}, True}, Typeset`asyncpods$$ = {}, 
   Typeset`nonpods$$ = {
    XMLElement["sources", {"count" -> "2"}, {
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PlaneCurveSourceInformationNotes.\
html", "text" -> "Plane curve"}, {}], 
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PeopleDataSourceInformationNotes.\
html", "text" -> "People data"}, {}]}]}, Typeset`initdone$$ = True, 
   Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "7", "datatypes" -> 
    "People,PlaneCurve", "timedout" -> "", "timedoutpods" -> "", "timing" -> 
    "1.006", "parsetiming" -> "0.169", "parsetimedout" -> "false", 
    "recalculate" -> "", "id" -> 
    "MSPa822205ifcge5f49ci5a0000594ifa48a4cg945a", "host" -> 
    "http://www4b.wolframalpha.com", "server" -> "62", "related" -> 
    "http://www4b.wolframalpha.com/api/v2/relatedQueries.jsp?id=\
MSPa823205ifcge5f49ci5a00001hh9abab66d8977h&s=62", "version" -> "2.6"}, 
   Typeset`sessioninfo$$ = {
   "TimeZone" -> 1., 
    "Date" -> {2016, 2, 5, 14, 13, 41.6994115`9.372704803189745}, "Line" -> 
    21, "SessionID" -> 21459186246672879149}, Typeset`showpods$$ = {1, 2, 3, 
   4, 5, 6, 7}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = "logarithmic spiral"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$}, Typeset`chosen$$, 
        Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, 
        Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, 
        Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], 
     StandardForm],
    ImageSizeCache->{1112., {491., 505.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; 
     WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$}], 
       Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print",
 CellMargins->{{20, 10}, {Inherited, Inherited}},
 CellChangeTimes->{3.6636668219224243`*^9}]
}, Closed]],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"spiral", "(", 
      RowBox[{"t_", ",", "k"}], ")"}], "=", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "k"}], " ", "t"}]], 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"cos", "(", "t", ")"}], ",", 
        RowBox[{"sin", "(", "t", ")"}]}], "}"}]}]}], ")"}], TraditionalForm]]],
 " \nin polar coordainates: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"r", "(", "t_", ")"}], "=", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "k"}], " ", "t"}]]}], " ", ")"}], TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663666675059024*^9, 
  3.663666680869356*^9}, {3.66366678549034*^9, 3.6636667917426977`*^9}, {
  3.6636668608326497`*^9, 3.6636668841329823`*^9}}],

Cell[CellGroupData[{

Cell["Parametric Plot : the image with coloring", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"ParametricPlot", "[", 
       RowBox[{
        RowBox[{"spiral", "[", 
         RowBox[{"t", ",", "k"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
        RowBox[{"AxesLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y"}], "}"}]}], ",", 
        RowBox[{"ColorFunction", "\[Rule]", 
         RowBox[{"Function", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", 
           RowBox[{
            RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "t", 
            "]"}]}], "]"}]}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"BarLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Rainbow\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}]}], "}"}], ",", 
        RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.05", ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "2"}], "}"}], ",", "0.1", ",", "40", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6647339390780225`*^9, 3.664733943046971*^9}},
 CellLabel->"In[36]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.172, $CellContext`T$$ = 3.6, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.05, 2}, {{
       Hold[$CellContext`T$$], 2}, 0.1, 40}}, Typeset`size$$ = {
    375., {156., 168.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$28751$$ = 
    0, $CellContext`T$28752$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.05, $CellContext`T$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$28751$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$28752$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Row[{
         ParametricPlot[
          $CellContext`spiral[$CellContext`t, $CellContext`k$$], \
{$CellContext`t, 0, $CellContext`T$$}, PlotRange -> {{-1, 1}, {-1, 1}}, 
          AxesLabel -> {$CellContext`x, $CellContext`y}, ColorFunction -> 
          Function[{$CellContext`x, $CellContext`y, $CellContext`t}, 
            ColorData["Rainbow"][$CellContext`t]], ImageSize -> {250, 250}], 
         BarLegend[{"Rainbow", {0, 20}}, LegendLabel -> "Time"]}], 
      "Specifications" :> {{$CellContext`k$$, 0.05, 2, Appearance -> 
         "Labeled"}, {{$CellContext`T$$, 2}, 0.1, 40, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{440., {234., 245.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`spiral[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`k, 
          Blank[]]] := {
          Cos[$CellContext`t], 
          Sin[$CellContext`t]}/E^($CellContext`k $CellContext`t)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.6647339408749685`*^9, 
   3.6647339437501183`*^9}},
 CellLabel->"Out[37]="]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Parametric Plot and the tangent vector", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"spiral", "[", 
   RowBox[{"t_", ",", "k_"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "k"}], " ", "t"}]], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], ",", 
     RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ParametricPlot", "[", 
         RowBox[{
          RowBox[{"spiral1", "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y"}], "}"}]}], ",", 
          RowBox[{"ColorFunction", "\[Rule]", 
           RowBox[{"Function", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", 
             RowBox[{
              RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "t", 
              "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Graphics", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"spiral1", "[", "t0", "]"}], "]"}], ",", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"spiral1", "[", "t0", "]"}], ",", 
              RowBox[{
               RowBox[{"spiral1", "[", "t0", "]"}], "+", 
               RowBox[{
                RowBox[{"spiral1", "'"}], "[", "t0", "]"}]}]}], "}"}], 
            "]"}]}], "}"}], "]"}], ",", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"250", ",", "250"}], "}"}]}]}], "\[IndentingNewLine]", 
       "]"}], ",", "\[IndentingNewLine]", 
      RowBox[{"BarLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<Rainbow\>\"", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}]}], "}"}], ",", 
        RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "t0", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "20", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"spiral1", "[", "t_", "]"}], ":=", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "0.15"}], " ", "t"}]], 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", "t", "]"}], ",", 
         RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
  3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}},
 CellLabel->"In[127]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t0$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`t0$$], 0, "\!\(\*SubscriptBox[\(t\), \(0\)]\)"}, 0, 
      20}}, Typeset`size$$ = {375., {156., 168.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`t0$90652$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t0$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t0$$, $CellContext`t0$90652$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Row[{
         Show[
          ParametricPlot[
           $CellContext`spiral1[$CellContext`t], {$CellContext`t, 0, 20}, 
           PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}, 
           AxesLabel -> {$CellContext`x, $CellContext`y}, ColorFunction -> 
           Function[{$CellContext`x, $CellContext`y, $CellContext`t}, 
             ColorData["Rainbow"][$CellContext`t]]], 
          Graphics[{
            PointSize[0.015], 
            Point[
             $CellContext`spiral1[$CellContext`t0$$]], 
            Arrow[{
              $CellContext`spiral1[$CellContext`t0$$], \
$CellContext`spiral1[$CellContext`t0$$] + 
              Derivative[1][$CellContext`spiral1][$CellContext`t0$$]}]}], 
          ImageSize -> {250, 250}], 
         BarLegend[{"Rainbow", {0, 20}}, LegendLabel -> "Time"]}], 
      "Specifications" :> {{{$CellContext`t0$$, 0, 
          "\!\(\*SubscriptBox[\(t\), \(0\)]\)"}, 0, 20, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{440., {219., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`spiral1[
           Pattern[$CellContext`t, 
            Blank[]]] := {
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}/E^(0.15 $CellContext`t), 
         Attributes[Derivative] = {
          NHoldAll, ReadProtected}}; {$CellContext`spiral1[
           Pattern[$CellContext`t, 
            Blank[]]] := E^((-0.15) $CellContext`t) {
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.6636688363176413`*^9, 
   3.6636688466032295`*^9}, {3.6636689097878437`*^9, 3.663668979684841*^9}, 
   3.6636690101845856`*^9, {3.663669142629161*^9, 3.6636691586330767`*^9}, {
   3.663669195169166*^9, 3.663669248580221*^9}, 3.66366930100722*^9},
 CellLabel->"Out[128]="]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Stroboscopic plot", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}, {3.6636702350786457`*^9, 
   3.6636702397639136`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"data", ",", "t"}], "}"}], ",", 
      RowBox[{
       RowBox[{"data", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{"spiral1", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", "20", ",", 
            RowBox[{"20", "/", "k"}]}], "}"}]}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Row", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Graphics", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
              RowBox[{"data", "/.", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"t_", ",", "x_", ",", "y_"}], "}"}], 
                "\[RuleDelayed]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", 
                   RowBox[{"t", "/", "20"}], "]"}], ",", 
                  RowBox[{"Point", "[", 
                   RowBox[{"{", 
                    RowBox[{"x", ",", "y"}], "}"}], "]"}]}], "}"}]}]}]}], 
             "\[IndentingNewLine]", "}"}], "]"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"250", ",", "250"}], "}"}]}]}], "\[IndentingNewLine]", 
          "]"}], "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", "50", ",", "\"\<k\>\""}], "}"}], ",", "10", ",", 
      "200", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
    RowBox[{"Initialization", "\[RuleDelayed]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"spiral1", "[", "t_", "]"}], ":=", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.12"}], " ", "t"}]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], ",", 
          RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
  3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}, {
  3.6636702730418167`*^9, 3.6636704095326242`*^9}, {3.663670476318444*^9, 
  3.663670599874511*^9}, {3.663670664286195*^9, 3.6636706751148143`*^9}, {
  3.6636707086857347`*^9, 3.6636707490900455`*^9}, {3.682236952859935*^9, 
  3.6822370080761886`*^9}, {3.682237162057924*^9, 3.68223727687175*^9}, {
  3.682237307733101*^9, 3.682237334334673*^9}},
 CellLabel->"In[4]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 21.8, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 50, "k"}, 10, 200}}, Typeset`size$$ = {
    313., {151., 162.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$94636$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 50}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$94636$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`data, $CellContext`t}, $CellContext`data = 
         Table[
           Prepend[
            $CellContext`spiral1[$CellContext`t], $CellContext`t], \
{$CellContext`t, 0, 20, 20/$CellContext`k$$}]; Row[{
           Show[
            Graphics[{
              PointSize[0.015], 
              ReplaceAll[$CellContext`data, {
                 Pattern[$CellContext`t, 
                  Blank[]], 
                 Pattern[$CellContext`x, 
                  Blank[]], 
                 Pattern[$CellContext`y, 
                  Blank[]]} :> {
                 ColorData["Rainbow"][$CellContext`t/20], 
                 Point[{$CellContext`x, $CellContext`y}]}]}], 
            ImageSize -> {250, 250}]}]], 
      "Specifications" :> {{{$CellContext`k$$, 50, "k"}, 10, 200, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{384., {214., 225.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`data = CompressedData["
1:eJxdVHk41GkcFxXajqFRdGAcmXLTRfF9UyTpGIq2EoVIW2tjXY8j17OrnInH
FdHBWus2M0Z6nTOuZJgoch9NW5RI107WmN/+s+/z/J7nfd7f7/f9fq73S7nw
s42ruJiYmNnCIyH2//Ue/ttFzOjvVgrvgo+y9AfBVyahdKe14eXIThCdj4L3
yRuC3vN8KDEa5VtKDYPFpBWv8MAkPJ+oXW4RPAwOPQ1BqswJ4vsZMA8JNrZc
3gXXnZTpKbOvwdXTdPkr58/Q1Ho4ZpxzD/L/HBnTy/qbqCMAtej5noEDLdh7
j+3emW4+kCs0aVWyS1DPQa+CLO9eLPDS9jWbHiPqSyDj+c++mUYj+GbHZpOH
LwdgdrHtMmQuyQ9hG43jK+b76duecYm+UijApkM5RmECJ5xhfuZ6F0P3Angr
3gq072hfguabMUxR6o9/L1GHRXhWITOTAK7Uu2Gc1NXotNGFh+lCOBVrkEIm
ye+4XB9O9TOSrKT0YxFOGfStpb2t0b8D+3g4y/x4fBhbC9WxkkWsJ/JPXSLL
8YuLEzJnjo5gEf616ESsymRQGANiFXMdixKH8SNZYSEyYlAVIknUpxB2jpsW
dXcAi3jJIVLGL9+99XrAtmmoTCuvB2sL4WiuR3dl024Oab6EL5aOaxvXtWMR
X3nUJHdnaaXZAICrtSufRcd34mq/yGcoIJ13Zwrm/fpBJ/FBmh8qIHTYgNzH
ZVMHyb2gaLojmxHDgdXtnKHAlZsQX2BELUzkwa2II5Rap07Cr81I55u0ueeO
VjDuayuY7+2G4JXCHxSRe44MQyGZAU0V8sbRs89BpJsSYsdJHnvVnIG1XSih
fbnPwVfdwz7HRxmV5Rqout2uxVLX0n11NboJ3ymImllEWylowyrswWpFHheK
hTALKeiswNtELqgT1+e1Lhu62AQinVXQVEo+LfJ3HuasI4XFBzCA7ywUQgVx
57dynt3m4WTKFzXq5VBCf1XUb7o2/mtDJ54jVTg97KrEyuHCF2pIjj1d1NzU
js2i3virV7MJX9SQ/lz3i1JWI/7uc7+5n/sEn8rxWWCgjpyXNqsyyun4zXiV
xdK+DsIvdXRaWbCbxv8VWx4hj5SqcXGCUP64LUh80l13PKkULAJilsSynhI+
aqDB0tdFJ1i1cI/+k5ZOUAtuXlC/naOBzvqflJ/5xIGI05dOMY3rCX+piJy3
hkdLb4U8SaWWzOAKvGTxFm9Fu6RojldD2qDCLYSRfTSW8H0rIrerpNnWtoBT
tV0LWpYPRkpCwtsQkzUl4DLZkJdl+knfq4rIwzbkUNJJuvq2BpjaEqfDDOrh
mrCtpyZyknZPGJMoh73bdVv2xrCJnGihCZMVHpoeSWCce/nCrRwO5DtE9Sbl
aSHbtDXRe8KzMekvrVURYWwiP9qIstruUAm5Ap/bJ5P94Wo9jAjpDmkjL+kt
VrScx9jmwyGg3a8mcqWDys8Hjs451mGHiVFql0spbMgQEtNFw2Yz2/Xj6vFB
t3g0rJhK5E0X7Z+a9bIdr8Oz6xzue+ok4z+EeKh6qJG8fVQmsQb7ZzS4WEgX
Y1EO9RDPLzxlpqcSB86olW20Z2JzIc4GPWQ3J/7DOLMYu3plMLtfVhP3XR8N
/Tb9LG86DT8+DN3JW2rwIn4nfXQgvWrDR6MoGGQZdV3PxViUW330Ois+iq+Y
ByOrvSjXDR7hRV7/6KOoF86z+1AZPNipwajzpBNzwwC17w+NTDVgQnpxjMwN
SiFe5JtigAr7QmvYGSy4J2XVcsg9HYtyboCaB3cdq/VmgZTtxKavbj4iHXYY
InF1bJ/8lgGkVDOa/Wg2MT8N0fL1dNvcS2VwcSrcjmRdCDbCGHINEfP2N6vW
d/lQ0FmyIjC6DP4FyzMFUw==
          "], $CellContext`spiral1[
           Pattern[$CellContext`t, 
            Blank[]]] := {
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}/
          E^(0.12 $CellContext`t)}; {$CellContext`spiral1[
           Pattern[$CellContext`t, 
            Blank[]]] := E^((-0.12) $CellContext`t) {
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.6822371482458515`*^9, 3.6822372793996696`*^9, 
  3.6822373399592056`*^9},
 CellLabel->"Out[4]="]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["A nice stroboscopic plot ", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}, {3.6636702350786457`*^9, 
   3.6636702397639136`*^9}, {3.682237124432742*^9, 3.682237129357937*^9}, {
   3.6822373679281816`*^9, 3.682237382283537*^9}}],

Cell[" Time, position and speed sampled!", "Text",
 CellChangeTimes->{{3.6822373832256155`*^9, 3.6822374197673364`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"data", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Prepend", "[", 
         RowBox[{
          RowBox[{"spiral1", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "0", ",", "20", ",", 
          RowBox[{"20", "/", "k"}]}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Row", "[", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Show", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"ParametricPlot", "[", 
           RowBox[{
            RowBox[{"spiral1", "[", "t", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"t", ",", "0", ",", "20"}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"x", ",", "y"}], "}"}]}], ",", 
            RowBox[{"ColorFunction", "\[Rule]", 
             RowBox[{"Function", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"x", ",", "y", ",", "t"}], "}"}], ",", 
               RowBox[{
                RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "t", 
                "]"}]}], "]"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
             RowBox[{"data", "/.", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"t_", ",", "x_", ",", "y_"}], "}"}], "\[RuleDelayed]", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"Point", "[", 
                  RowBox[{"{", 
                   RowBox[{"x", ",", "y"}], "}"}], "]"}], ",", 
                 RowBox[{"Arrow", "[", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y"}], "}"}], "+", 
                    RowBox[{"0.7", 
                    RowBox[{
                    RowBox[{"spiral1", "'"}], "[", "t", "]"}]}]}]}], "}"}], 
                  "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}], 
          ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"250", ",", "250"}], "}"}]}]}], "\[IndentingNewLine]", 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"BarLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\"\<Rainbow\>\"", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "20"}], "}"}]}], "}"}], ",", 
          RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], 
       "}"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", "50", ",", "\"\<k\>\""}], "}"}], ",", "10", ",", 
      "200", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
    RowBox[{"Initialization", "\[RuleDelayed]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"spiral1", "[", "t_", "]"}], ":=", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "0.12"}], " ", "t"}]], 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Cos", "[", "t", "]"}], ",", 
          RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
  3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}, {
  3.6636702730418167`*^9, 3.6636704095326242`*^9}, {3.663670476318444*^9, 
  3.663670599874511*^9}, {3.663670664286195*^9, 3.6636706751148143`*^9}, {
  3.6636707086857347`*^9, 3.6636707490900455`*^9}, {3.682236952859935*^9, 
  3.6822370080761886`*^9}},
 CellLabel->"In[1]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 65.6, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 50, "k"}, 10, 200}}, Typeset`size$$ = {
    375., {156., 168.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$872$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 50}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$872$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> ($CellContext`data = Table[
          Prepend[
           $CellContext`spiral1[$CellContext`t], $CellContext`t], \
{$CellContext`t, 0, 20, 20/$CellContext`k$$}]; Row[{
          Show[
           ParametricPlot[
            $CellContext`spiral1[$CellContext`t], {$CellContext`t, 0, 20}, 
            PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}}, 
            AxesLabel -> {$CellContext`x, $CellContext`y}, ColorFunction -> 
            Function[{$CellContext`x, $CellContext`y, $CellContext`t}, 
              ColorData["Rainbow"][$CellContext`t]]], 
           Graphics[{
             PointSize[0.015], 
             ReplaceAll[$CellContext`data, {
                Pattern[$CellContext`t, 
                 Blank[]], 
                Pattern[$CellContext`x, 
                 Blank[]], 
                Pattern[$CellContext`y, 
                 Blank[]]} :> {
                Point[{$CellContext`x, $CellContext`y}], 
                
                Arrow[{{$CellContext`x, $CellContext`y}, {$CellContext`x, \
$CellContext`y} + 0.7 
                   Derivative[1][$CellContext`spiral1][$CellContext`t]}]}]}], 
           ImageSize -> {250, 250}], 
          BarLegend[{"Rainbow", {0, 20}}, LegendLabel -> "Time"]}]), 
      "Specifications" :> {{{$CellContext`k$$, 50, "k"}, 10, 200, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{440., {219., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{
        Attributes[Derivative] = {
          NHoldAll, ReadProtected}}; {$CellContext`spiral1[
           Pattern[$CellContext`t, 
            Blank[]]] := E^((-0.12) $CellContext`t) {
            Cos[$CellContext`t], 
            Sin[$CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.6822370387738266`*^9},
 CellLabel->"Out[1]="]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Plot in the extended phase space, 3D: {t,F(t)} with projections and coloring\
\>", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636674533225384`*^9, 3.6636674994081745`*^9}, {
   3.663667797241209*^9, 3.6636678135731435`*^9}, {3.6636679419634867`*^9, 
   3.6636679451996717`*^9}, 3.6636697293847218`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"spiral", "[", 
          RowBox[{"t", ",", "k"}], "]"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y"}], "}"}]}], ",", 
       RowBox[{"BoxRatios", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"t", ",", "1", ",", 
         RowBox[{
          RowBox[{"spiral", "[", 
           RowBox[{"t", ",", "k"}], "]"}], "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y"}], "}"}]}], ",", 
       RowBox[{"BoxRatios", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"2", ",", "1", ",", "1"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"Prepend", "[", 
        RowBox[{
         RowBox[{"spiral", "[", 
          RowBox[{"t", ",", "k"}], "]"}], ",", "t"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "0", ",", "T"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "20"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y"}], "}"}]}], ",", 
       RowBox[{"BoxRatios", "\[Rule]", 
        RowBox[{"{", "1.5", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"ColorFunction", "\[Rule]", 
        RowBox[{"Function", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"t", ",", "x", ",", "y"}], "}"}], ",", 
          RowBox[{
           RowBox[{"ColorData", "[", "\"\<Rainbow\>\"", "]"}], "[", "t", 
           "]"}]}], "]"}]}]}], "]"}]}], "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0.05", ",", "2", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"T", ",", "20"}], "}"}], ",", "0.1", ",", "20", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
   3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
   3.663667106112679*^9}, {3.6636675081036716`*^9, 3.663667508751709*^9}, {
   3.663667586549158*^9, 3.663667614621764*^9}, {3.663667662559506*^9, 
   3.663667772295782*^9}, {3.663667883039117*^9, 3.6636679158329926`*^9}, {
   3.663667951190015*^9, 3.663668117964554*^9}, {3.663668171210599*^9, 
   3.6636681842253437`*^9}, {3.6647338383540382`*^9, 3.664733839979141*^9}, 
   3.664733980205152*^9},
 CellLabel->"In[38]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 0.05, $CellContext`T$$ = 20, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`k$$], 0.05, 2}, {{
       Hold[$CellContext`T$$], 20}, 0.1, 20}}, Typeset`size$$ = {
    450., {180., 187.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$29092$$ = 
    0, $CellContext`T$29093$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`k$$ = 0.05, $CellContext`T$$ = 20}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$29092$$, 0], 
        Hold[$CellContext`T$$, $CellContext`T$29093$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        ParametricPlot3D[
         Prepend[
          $CellContext`spiral[$CellContext`t, $CellContext`k$$], 
          0], {$CellContext`t, 0, $CellContext`T$$}, 
         PlotRange -> {{0, 20}, {-1, 1}, {-1, 1}}, 
         AxesLabel -> {$CellContext`t, $CellContext`x, $CellContext`y}, 
         BoxRatios -> {2, 1, 1}], 
        ParametricPlot3D[{$CellContext`t, 1, 
          Part[
           $CellContext`spiral[$CellContext`t, $CellContext`k$$], 
           2]}, {$CellContext`t, 0, $CellContext`T$$}, 
         PlotRange -> {{0, 20}, {-1, 1}, {-1, 1}}, 
         AxesLabel -> {$CellContext`t, $CellContext`x, $CellContext`y}, 
         BoxRatios -> {2, 1, 1}], 
        ParametricPlot3D[
         Prepend[
          $CellContext`spiral[$CellContext`t, $CellContext`k$$], \
$CellContext`t], {$CellContext`t, 0, $CellContext`T$$}, 
         PlotRange -> {{0, 20}, {-1, 1}, {-1, 1}}, 
         AxesLabel -> {$CellContext`t, $CellContext`x, $CellContext`y}, 
         BoxRatios -> {1.5}, ColorFunction -> 
         Function[{$CellContext`t, $CellContext`x, $CellContext`y}, 
           ColorData["Rainbow"][$CellContext`t]]]], 
      "Specifications" :> {{$CellContext`k$$, 0.05, 2, Appearance -> 
         "Labeled"}, {{$CellContext`T$$, 20}, 0.1, 20, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{515., {256., 267.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`spiral[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`k, 
          Blank[]]] := {
          Cos[$CellContext`t], 
          Sin[$CellContext`t]}/E^($CellContext`k $CellContext`t)}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, {3.663667682696658*^9, 
   3.6636677104472446`*^9}, {3.6636677590090227`*^9, 3.6636677727288074`*^9}, 
   3.6636679169370556`*^9, 3.6636679855999827`*^9, {3.663668050450692*^9, 
   3.6636681184875836`*^9}, {3.663668178305005*^9, 3.663668185156397*^9}, 
   3.664733981955221*^9},
 CellLabel->"Out[38]="]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["Some 2D parametric curves: {x(t), y(t)}", "MainSection",
 CellChangeTimes->{{3.6636665940363903`*^9, 3.663666603244917*^9}, {
  3.6636708012090263`*^9, 3.663670805400266*^9}}],

Cell[CellGroupData[{

Cell["Graph of a function", "Subsection",
 CellChangeTimes->{{3.663664820357941*^9, 3.6636648550329247`*^9}, {
  3.6636649609119806`*^9, 3.6636649617990313`*^9}, {3.663665037458359*^9, 
  3.6636650428696685`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"graph", "(", "t_", ")"}], "=", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       SuperscriptBox["t", "2"]}], "}"}]}], ")"}], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665048260977*^9, 3.663665073169401*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"graph", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{"t", ",", 
    SuperscriptBox["t", "2"]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"graph", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.6636650941246*^9, 
  3.663665107600371*^9}, {3.663665155964137*^9, 3.6636651626715207`*^9}},
 CellLabel->"In[4]:="],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw1mHc4FX77x2WTLZWREL6JKMqonFvITGVTMpPssveeZZxykr03HSNE5JNs
[encoded data, 5580 characters]
3x/kf/ofRGp3uw==
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{214.5, Automatic},
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-1., 1.}, {0., 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6636650146460543`*^9, 3.663665163696579*^9},
 CellLabel->"Out[5]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
[encoded data, 4380 characters]
VeNr3m7K/wFV7I46\
\>"]]
}, Open  ]],

Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.663664643441822*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["Unit Circle! ", "Subsection",
 CellChangeTimes->{{3.663664820357941*^9, 3.6636648550329247`*^9}, {
  3.6636649609119806`*^9, 3.6636649617990313`*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"circle", "(", "t_", ")"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cos", "(", "t", ")"}], ",", 
       RowBox[{"sin", "(", "t", ")"}]}], "}"}]}], ")"}], TraditionalForm]]],
 " \nin polar coordainates: ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"r", "(", "t_", ")"}], "=", "1"}], " ", ")"}], 
   TraditionalForm]]]
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"circle", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], ",", 
    RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"circle", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}},
 CellLabel->"In[2]:="],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw1m3c41f/7x42KyChFpaJFi4rS7q5oGBkRDWWlhMxSZEVSKHtkJrJlZnPb
[encoded data, 17760 characters]
+j/+kmeR
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{214.5, Automatic},
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-0.9999998831351729, 1.}, {-0.9999998592812047, 
   0.9999998782744886}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6636650146460543`*^9},
 CellLabel->"Out[3]="]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Lissajous curves", "Subsection",
 CellChangeTimes->{{3.663664820357941*^9, 3.6636648550329247`*^9}, {
  3.6636649609119806`*^9, 3.6636649617990313`*^9}, {3.663665201937766*^9, 
  3.663665208977169*^9}}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Liss", "(", "t_", ")"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cos", "(", 
        RowBox[{"\[Alpha]", " ", "t"}], ")"}], ",", 
       RowBox[{"sin", "(", 
        RowBox[{"\[Beta]", " ", "t"}], ")"}]}], "}"}]}], ")"}], 
   TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663665212037344*^9, 
  3.6636652468583355`*^9}}],

Cell["The image of the 3D pendulum (swinging in both directions)", "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663665212037344*^9, 
  3.6636652736228666`*^9}, {3.6636653602428207`*^9, 3.663665370203391*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Liss", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], ",", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", "t"}], "]"}]}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"Liss", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663665378568869*^9, 
  3.6636653914766073`*^9}},
 CellLabel->"In[6]:="],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJw0m3c8lv/3xxEKSSGKkpbRVpGGjkqJSkmFEg0qZCcUDS0ZESUjI3uVmc0x
[encoded data, 21840 characters]
P+x8D66ueT6Wlaf2AAAxS6k5
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->{214.5, Automatic},
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{-0.9999998831351729, 1.}, {-0.9999990682297951, 
   0.9999987335310796}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6636650146460543`*^9, 3.66366539275368*^9},
 CellLabel->"Out[7]="]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Cycloid", "Subsection",
 CellChangeTimes->{{3.663664820357941*^9, 3.6636648550329247`*^9}, {
  3.6636649609119806`*^9, 3.6636649617990313`*^9}, {3.663665201937766*^9, 
  3.663665208977169*^9}, {3.663665787315248*^9, 3.66366579853889*^9}}],

Cell[CellGroupData[{

Cell["cycloid", "WolframAlphaLong",
 CellChangeTimes->{{3.6636658127637033`*^9, 3.663665816563921*^9}},
 CellLabel->"In[9]:="],

Cell[BoxData[
 NamespaceBox["WolframAlphaQueryResults",
  DynamicModuleBox[{Typeset`q$$ = "cycloid", Typeset`opts$$ = {
   AppearanceElements -> {
     "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
      "Sources"}, Asynchronous -> All, 
    TimeConstraint -> {30, Automatic, Automatic, Automatic}, 
    Method -> {
     "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> 
      "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = {
   "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", 
    "Sources"}, Typeset`pod1$$ = XMLElement[
   "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> 
     "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, {
    
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["minput", {}, {"Entity[\"PlaneCurve\", \"Cycloid\"]"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             FormBox[
              StyleBox[
               TemplateBox[{
                 TagBox[
                  TagBox["\"cycloid\"", 
                   $CellContext`TagBoxWrapper[
                   "Entity" -> {"PlaneCurve", "Cycloid"}]], Identity], 
                 "\" \"", 
                 StyleBox[
                  
                  RowBox[{
                   "\"(\"", "\[NoBreak]", "\"plane curve\"", "\[NoBreak]", 
                    "\")\""}], {
                   GrayLevel[0.6], 
                   LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                   0}, StripOnInput -> False]}, "RowDefault"], LineIndent -> 
               0], TraditionalForm], 
             PolynomialForm[#, TraditionalOrder -> False]& ], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata"}]}]}], 
   Typeset`pod2$$ = XMLElement[
   "pod", {"title" -> "Plot", "scanner" -> "Data", "id" -> 
     "PlotPod:PlaneCurve", "position" -> "200", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> True, "string" -> False}, {
         Cell[
          BoxData[
           FormBox[
            TagBox[
             GridBox[{{
                GraphicsBox[{{{}, {}, {
                    Hue[0.67, 0.6, 0.6], 
                    Directive[
                    RGBColor[0.24720000000000014`, 0.24, 0.6], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJxl2Xk8Fd//OPCbLXt2ri2u7VqSCtHidUKoZKcooQXJliJZSvaQfSlKEkJC
[encoded data, 17520 characters]
Q2p8ezRN/uf//f4PjU+7rA==
                    "]]}}}, {GridLines -> Dynamic[
                    Map[{{#, 
                    GrayLevel[0.7]}}& , 
                    MousePosition[{"Graphics", Graphics}, None]]], 
                  Method -> {"GridLinesInFront" -> True}, Axes -> True, 
                  AxesLabel -> {
                    FormBox["x", TraditionalForm], 
                    FormBox["y", TraditionalForm]}, AxesOrigin -> {0, 0}, 
                  ImageSize -> {{400}, {200}}, Method -> {}, 
                  PlotRange -> {{0., 12.566370614359172`}, {0., 
                   1.999999513097984}}, PlotRangeClipping -> True, 
                  PlotRangePadding -> {
                    Scaled[0.02], 
                    Scaled[0.02]}, Ticks -> None}]}, {
                PaneBox[
                 TagBox[
                  StyleBox[
                   RowBox[{"\"(\"", "\[NoBreak]", 
                    FormBox[
                    TagBox[
                    FormBox[
                    
                    TemplateBox[{
                    "\"plotted for \"", "t", "\" from \"", "0", "\" to \"", 
                    RowBox[{"4", " ", "\[Pi]"}]}, "RowDefault"], 
                    TraditionalForm], Format[#, TraditionalForm]& ], 
                    TraditionalForm], "\[NoBreak]", "\")\""}], {
                   FontFamily -> "Verdana", FontSize -> 10, 
                    GrayLevel[0.5], 
                    LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 
                    0}, StripOnInput -> False], 
                  $CellContext`TagBoxWrapper["Label"]], 
                 BaseStyle -> {LineIndent -> 0}]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
              "Column", 
              GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
             "Column"], TraditionalForm]], "Output", {}]}], 
       XMLElement["dataformats", {}, {"computabledata,formatteddata"}]}]}], 
   Typeset`pod3$$ = XMLElement[
   "pod", {"title" -> "Alternate names", "scanner" -> "Data", "id" -> 
     "AlternateNamesPod:PlaneCurve", "position" -> "300", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{"\"brachistochrone curve\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"Helen of Geometers\"", 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               "\"tautochrone curve\""}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod4$$ = XMLElement[
   "pod", {"title" -> "Equations", "scanner" -> "Data", "id" -> 
     "EquationsPod:PlaneCurve", "position" -> "400", "error" -> "false", 
     "numsubpods" -> "2"}, {
     XMLElement["subpod", {"title" -> "Parametric equations"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              GridBox[{{
                 RowBox[{
                   RowBox[{"x", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"t", "-", 
                    RowBox[{"sin", "(", "t", ")"}]}], ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}, {
                 RowBox[{
                   RowBox[{"y", "(", "t", ")"}], "\[LongEqual]", 
                   StyleBox[
                    RowBox[{"a", " ", 
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"cos", "(", "t", ")"}]}], ")"}]}], {
                    GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100},
                     LineIndent -> 0}, StripOnInput -> False]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{"\[LongEqual]"}}, 
                 "Rows" -> {{"\[LongEqual]"}}}, AllowScriptLevelChange -> 
               False, DefaultBaseStyle -> "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{1}}}], "Column"], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["subpod", {"title" -> "Cartesian equation"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            RowBox[{
              TemplateBox[{
                RowBox[{
                  RowBox[{"2", " ", "\[Pi]", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    TemplateBox[{
                    RowBox[{
                    FractionBox["1", "2"], "-", 
                    FractionBox["x", 
                    RowBox[{"2", " ", "a", " ", "\[Pi]"}]]}]}, "Ceiling"], 
                    "-", "1"}], ")"}]}], "+", 
                  FractionBox["x", "a"]}]}, "Abs"], "\[LongEqual]", 
              RowBox[{
                RowBox[{
                  SuperscriptBox["cos", 
                   RowBox[{"-", "1"}]], "(", 
                  RowBox[{"1", "-", 
                    FractionBox["y", "a"]}], ")"}], "-", 
                SqrtBox[
                 RowBox[{
                   FractionBox[
                    RowBox[{"2", " ", "y"}], "a"], "-", 
                   FractionBox[
                    SuperscriptBox["y", "2"], 
                    SuperscriptBox["a", "2"]]}]]}]}], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["infos", {"count" -> "3"}, {
       XMLElement[
       "info", {
        "text" -> "\[LeftCeiling]x\[RightCeiling] is the ceiling function"}, {
        
         XMLElement[
         "link", {
          "url" -> 
           "http://reference.wolfram.com/mathematica/ref/Ceiling.html", 
           "text" -> "Documentation", "title" -> "Mathematica"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://functions.wolfram.com/IntegerFunctions/Ceiling", 
           "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], 
         
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/CeilingFunction.html", 
           "text" -> "Definition", "title" -> "MathWorld"}, {}], 
         XMLElement["cell", {"compressed" -> False, "string" -> True}, {
           Cell[
            BoxData[
             FormBox[
              TemplateBox[{
                TemplateBox[{"x"}, "Ceiling"], "\" \"", 
                "\"is the ceiling function\""}, "RowDefault"], 
              TraditionalForm]], "Output", {}]}]}], 
       XMLElement[
       "info", {
        "text" -> 
         "\[LeftBracketingBar]z\[RightBracketingBar] is the absolute value of \
z"}, {
         XMLElement[
         "link", {
          "url" -> "http://reference.wolfram.com/mathematica/ref/Abs.html", 
           "text" -> "Documentation", "title" -> "Mathematica"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://functions.wolfram.com/ComplexComponents/Abs", 
           "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], 
         
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/AbsoluteValue.html", "text" -> 
           "Definition", "title" -> "MathWorld"}, {}], 
         XMLElement["cell", {"compressed" -> False, "string" -> True}, {
           Cell[
            BoxData[
             FormBox[
              TemplateBox[{
                TemplateBox[{"z"}, "Abs"], "\" \"", 
                "\"is the absolute value of\"", "\" \"", "z"}, "RowDefault"], 
              TraditionalForm]], "Output", {}]}]}], 
       XMLElement[
       "info", {"text" -> "cos^(-1)(x) is the inverse cosine function"}, {
         XMLElement[
         "link", {
          "url" -> "http://reference.wolfram.com/mathematica/ref/ArcCos.html",
            "text" -> "Documentation", "title" -> "Mathematica"}, {}], 
         XMLElement[
         "link", {
          "url" -> "http://functions.wolfram.com/ElementaryFunctions/ArcCos", 
           "text" -> "Properties", "title" -> "Wolfram Functions Site"}, {}], 
         
         XMLElement[
         "link", {
          "url" -> "http://mathworld.wolfram.com/InverseCosine.html", "text" -> 
           "Definition", "title" -> "MathWorld"}, {}], 
         XMLElement["cell", {"compressed" -> False, "string" -> True}, {
           Cell[
            BoxData[
             FormBox[
              TemplateBox[{
                RowBox[{
                  SuperscriptBox["cos", 
                   RowBox[{"-", "1"}]], "(", "x", ")"}], "\" \"", 
                "\"is the inverse cosine function\""}, "RowDefault"], 
              TraditionalForm]], "Output", {}]}]}]}]}], Typeset`pod5$$ = 
   XMLElement[
   "pod", {"title" -> "Properties", "scanner" -> "Data", "id" -> 
     "PropertiesPod:PlaneCurve", "position" -> "500", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               TagBox[
                TagBox["\"parametric\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Parametric"}]], Identity], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               TagBox[
                TagBox["\"roulette\"", 
                 $CellContext`TagBoxWrapper[
                 "EntityClass" -> {"PlaneCurve", "Roulette"}]], Identity]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod6$$ = XMLElement[
   "pod", {"title" -> "Basic properties", "scanner" -> "Data", "id" -> 
     "BasicPropertiesPod:PlaneCurve", "position" -> "600", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Area enclosed"}, {
       XMLElement["minput", {}, {"3 a^2 Pi"}], 
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{"A", "\[LongEqual]", 
               StyleBox[
                RowBox[{"3", " ", "\[Pi]", " ", 
                  SuperscriptBox["a", "2"]}], {
                 GrayLevel[0], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
                 LineIndent -> 0}, StripOnInput -> False]}], {
              GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, 
              LineIndent -> 0}, StripOnInput -> False], TraditionalForm]], 
          "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {
        "plaintext,minput,computabledata,formatteddata,formuladata"}]}], 
     XMLElement["states", {"count" -> "1"}, {
       XMLElement[
       "state", {
        "name" -> "Approximate form", "input" -> 
         "BasicPropertiesPod:PlaneCurve__Approximate form"}, {}]}]}], 
   Typeset`pod7$$ = XMLElement[
   "pod", {"title" -> "Derived curves", "scanner" -> "Data", "id" -> 
     "DerivedCurvesPod:PlaneCurve", "position" -> "700", "error" -> "false", 
     "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> ""}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             TagBox[
              GridBox[{{
                 TagBox[
                  PaneBox[
                   TagBox["\"evolute\"", Identity], 
                   BaseStyle -> {{
                    BaselinePosition -> Baseline, FontColor -> 
                    GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, BaselinePosition -> Baseline], 
                  $CellContext`TagBoxWrapper["Label"]], 
                 FormBox[
                  TagBox[
                   TagBox["\"cycloid\"", 
                    $CellContext`TagBoxWrapper[
                    "Entity" -> {"PlaneCurve", "Cycloid"}]], Identity], 
                  TraditionalForm]}, {
                 TagBox[
                  PaneBox[
                   TagBox["\"involute\"", Identity], 
                   BaseStyle -> {{
                    BaselinePosition -> Baseline, FontColor -> 
                    GrayLevel[0.3]}, LineSpacing -> {0.9, 0, 1.5}, 
                    LinebreakAdjustments -> {1, 10, 10000, 0, 100}, 
                    TextAlignment -> Left}, BaselinePosition -> Baseline], 
                  $CellContext`TagBoxWrapper["Label"]], 
                 FormBox[
                  TagBox[
                   TagBox["\"cycloid\"", 
                    $CellContext`TagBoxWrapper[
                    "Entity" -> {"PlaneCurve", "Cycloid"}]], Identity], 
                  TraditionalForm]}}, 
               GridBoxAlignment -> {
                "Columns" -> {Left, Left}, "Rows" -> {{Baseline}}}, 
               AutoDelete -> False, 
               GridBoxBackground -> {"Columns" -> {None, None}}, 
               GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {"Columns" -> {{1.5}, 2}, "Rows" -> {{1}}}, 
               FrameStyle -> GrayLevel[0.84], BaselinePosition -> Automatic, 
               AllowScriptLevelChange -> False], "Grid"], 
             LineSpacing -> {0.9, 0, 1.5}, LineIndent -> 0, StripOnInput -> 
             False], TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`pod8$$ = XMLElement[
   "pod", {"title" -> "Related entities", "scanner" -> "Data", "id" -> 
     "RelatedEntitiesPod:PlaneCurve", "position" -> "800", "error" -> "false",
      "numsubpods" -> "1"}, {
     XMLElement["subpod", {"title" -> "Associated people"}, {
       XMLElement["cell", {"compressed" -> False, "string" -> True}, {
         Cell[
          BoxData[
           FormBox[
            StyleBox[
             RowBox[{
               FormBox[
                TagBox[
                 TagBox["\"Nicholas of Cusa\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "NicholasOfCusa::2t4gk"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Charles de Bovelles\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "CharlesDeBovelles::94m43"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Galileo Galilei\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "GalileoGalilei::rxsr7"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Girard Desargues\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "GirardDesargues::y296j"}]], Identity], TraditionalForm], 
               
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Marin Mersenne\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "MarinMersenne::6jbqv"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Gilles Personne de Roberval\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "GillesPersonneDeRoberval::6tczb"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Ren\[EAcute] Descartes\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "ReneDescartes::x2xj8"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Sir Christopher Wren\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "SirChristopherWren::n778c"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Christiaan Huygens\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "ChristiaanHuygens::9523h"}]], Identity], 
                TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Johann Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JohannBernoulli::772rn"}]], Identity], TraditionalForm], 
               
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Gottfried Leibniz\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "GottfriedLeibniz::s2hc2"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Isaac Newton\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "IsaacNewton::bhz5x"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox["\"Jacob Bernoulli\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "JacobBernoulli::gpbw5"}]], Identity], TraditionalForm], 
               StyleBox[
                RowBox[{"\[NoBreak]", 
                  PaneBox[
                  "\"  |  \"", BaselinePosition -> Baseline, BaseStyle -> 
                   GrayLevel[0.6]]}], AutoSpacing -> True], 
               FormBox[
                TagBox[
                 TagBox[
                 "\"Guillaume Fran\[CCedilla]ois Antoine Marquis de \
L'H\[OHat]pital\"", 
                  $CellContext`TagBoxWrapper[
                  "Entity" -> {$CellContext`PeopleData, 
                    "GuillaumeFrancoisAntoineMarquisDeLHopital::7yqrc"}]], 
                 Identity], TraditionalForm]}], 
             LinebreakAdjustments -> {1, 10, 0, 0, 100}, LineIndent -> 0], 
            TraditionalForm]], "Output", {}]}], 
       XMLElement[
       "dataformats", {}, {"plaintext,computabledata,formatteddata"}]}]}], 
   Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = {
   True, False, {False}, True}, Typeset`aux3$$ = {True, False, {False}, True},
    Typeset`aux4$$ = {True, False, {False, False}, True}, Typeset`aux5$$ = {
   True, False, {False}, True}, Typeset`aux6$$ = {True, False, {False}, True},
    Typeset`aux7$$ = {True, False, {False}, True}, Typeset`aux8$$ = {
   True, False, {False}, True}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = {
    XMLElement["assumptions", {"count" -> "1"}, {
      XMLElement[
      "assumption", {
       "type" -> "Clash", "word" -> "cycloid", "template" -> 
        "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> 
        "2"}, {
        XMLElement[
        "value", {
         "name" -> "PlaneCurve", "desc" -> "a plane curve", "input" -> 
          "*C.cycloid-_*PlaneCurve-"}, {}], 
        XMLElement[
        "value", {
         "name" -> "Word", "desc" -> "a word", "input" -> 
          "*C.cycloid-_*Word-"}, {}]}]}], 
    XMLElement["sources", {"count" -> "2"}, {
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PlaneCurveSourceInformationNotes.\
html", "text" -> "Plane curve"}, {}], 
      XMLElement[
      "source", {
       "url" -> 
        "http://www.wolframalpha.com/sources/PeopleDataSourceInformationNotes.\
html", "text" -> "People data"}, {}]}]}, Typeset`initdone$$ = True, 
   Typeset`queryinfo$$ = {
   "success" -> "true", "error" -> "false", "numpods" -> "8", "datatypes" -> 
    "People,PlaneCurve", "timedout" -> "", "timedoutpods" -> "", "timing" -> 
    "1.624", "parsetiming" -> "0.09", "parsetimedout" -> "false", 
    "recalculate" -> "", "id" -> 
    "MSPa22911h9dbh51c8gfh7ae000012de44e0e7ha2cg0", "host" -> 
    "http://www2.wolframalpha.com", "server" -> "24", "related" -> 
    "http://www2.wolframalpha.com/api/v2/relatedQueries.jsp?id=\
MSPa22921h9dbh51c8gfh7ae00004h74ci019iee5f22&s=24", "version" -> "2.6"}, 
   Typeset`sessioninfo$$ = {
   "TimeZone" -> 1., 
    "Date" -> {2016, 2, 5, 13, 56, 59.3830823`9.526237564290287}, "Line" -> 9,
     "SessionID" -> 21459186246672879149}, Typeset`showpods$$ = {1, 2, 3, 4, 
   5, 6, 7, 8}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, 
   Typeset`open$$ = False, Typeset`newq$$ = "cycloid"}, 
   DynamicBox[ToBoxes[
     AlphaIntegration`FormatAlphaResults[
      Dynamic[{
       1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$}, {
        Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, 
         Typeset`aux5$$, Typeset`aux6$$, Typeset`aux7$$, Typeset`aux8$$}, 
        Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, 
        Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, 
        Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, 
        Typeset`newq$$}]], StandardForm],
    ImageSizeCache->{1104., {650., 664.}},
    TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}],
   DynamicModuleValues:>{},
   Initialization:>If[
     Not[Typeset`initdone$$], Null; 
     WolframAlphaClient`Private`doAsyncUpdates[
       Hold[{
        Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, 
         Typeset`pod5$$, Typeset`pod6$$, Typeset`pod7$$, Typeset`pod8$$}], 
       Typeset`asyncpods$$, 
       Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; 
     Typeset`initdone$$ = True],
   SynchronousInitialization->False],
  BaseStyle->{Deployed -> True},
  DeleteWithContents->True,
  Editable->False,
  SelectWithContents->True]], "Print",
 CellMargins->{{20, 10}, {Inherited, Inherited}},
 CellChangeTimes->{3.6636658198261075`*^9}]
}, Closed]],

Cell[TextData[Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"Cycloid", "(", "t_", ")"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{"t", "-", 
        RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}], ",", 
     RowBox[{"a", " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}]}], "}"}]}], 
  TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663665212037344*^9, 
  3.6636652468583355`*^9}, {3.663665898282595*^9, 3.6636659250991287`*^9}, {
  3.663666114568966*^9, 3.6636661181221695`*^9}}],

Cell["The path of the points of the rolling wheel.", "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663665212037344*^9, 
  3.6636652736228666`*^9}, {3.6636653602428207`*^9, 3.663665370203391*^9}, {
  3.663666271841962*^9, 3.663666285735756*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cycl", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"t", "-", 
      RowBox[{"Sin", "[", "t", "]"}]}], ")"}], ",", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Cos", "[", "t", "]"}]}], ")"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot", "[", 
  RowBox[{
   RowBox[{"Cycl", "[", "t", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"4", "Pi"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663665378568869*^9, 
  3.6636653914766073`*^9}, {3.6636661279717326`*^9, 3.6636661739813643`*^9}, {
  3.663666239347103*^9, 3.6636662532568984`*^9}},
 CellLabel->"In[19]:="],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
    1.], FaceForm[Opacity[0.3]], LineBox[CompressedData["
1:eJxl2Wk4Vd/7MPCTKXPmmTimY0gqRIN7hVDJTFFCA5IpRTKUzCHzUJQkhIQk
[encoded data, 17520 characters]
zrdHy/R//t/f/wFUC7ty
     "]]}},
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{"ScalingFunctions" -> None},
  PlotRange->{{0., 12.566370614359172`}, {0., 1.999999513097984}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.05], 
     Scaled[0.05]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, 3.66366539275368*^9, 3.663666133087025*^9, {
   3.663666169724121*^9, 3.6636661752284355`*^9}, {3.663666231674664*^9, 
   3.6636662544299655`*^9}},
 CellLabel->"Out[20]="]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],

Cell[CellGroupData[{

Cell["3D parametric curves: {x(t), y(t), z(t)}", "MainSection",
 CellChangeTimes->{{3.4131447539303293`*^9, 3.413144946747587*^9}, {
   3.4132163853588686`*^9, 3.413216433337859*^9}, {3.41426123579513*^9, 
   3.4142612485334463`*^9}, {3.663664166782559*^9, 3.663664408516385*^9}, {
   3.6636644417872887`*^9, 3.663664479464443*^9}, {3.6636645158465242`*^9, 
   3.663664524946045*^9}, 3.6636737210430317`*^9}],

Cell["Motion in the 3D space", "Th-Env",
 CellChangeTimes->{{3.6636709109153013`*^9, 3.663670916541623*^9}, 
   3.663670981933363*^9, 3.6636737178628497`*^9}],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"Liss3D", "(", 
      RowBox[{"t_", ",", "k"}], ")"}], "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"cos", "(", "t", ")"}], ",", 
       RowBox[{"sin", "(", 
        RowBox[{"2", "t"}], ")"}], ",", 
       RowBox[{"sin", "(", 
        RowBox[{"4", "t"}], ")"}]}], "}"}]}], ")"}], TraditionalForm]]],
 " "
}], "Text",
 CellChangeTimes->{{3.6636649138482885`*^9, 3.6636649730066724`*^9}, {
  3.663665075403529*^9, 3.6636650848610697`*^9}, {3.663666675059024*^9, 
  3.663666680869356*^9}, {3.66366678549034*^9, 3.6636667917426977`*^9}, {
  3.6636668608326497`*^9, 3.6636668841329823`*^9}, {3.663672198609953*^9, 
  3.6636722326439*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Liss3D", "[", "t_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Cos", "[", "t", "]"}], ",", 
    RowBox[{"Sin", "[", 
     RowBox[{"3", "t"}], "]"}], ",", 
    RowBox[{"Sin", "[", 
     RowBox[{"2", "t"}], "]"}]}], "}"}]}]], "Input",
 CellLabel->"In[39]:="],

Cell[CellGroupData[{

Cell["Parametric Plot : the image with coloring", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Row", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"ParametricPlot3D", "[", 
     RowBox[{
      RowBox[{"Liss3D", "[", "t", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", 
        RowBox[{"2", "Pi"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
      RowBox[{"ColorFunction", "\[Rule]", 
       RowBox[{"Function", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", 
         RowBox[{"Hue", "[", "t", "]"}]}], "]"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"BarLegend", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Hue", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"2", "\[Pi]"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6636722504109163`*^9, 3.6636723998544636`*^9}, {3.6647340250508595`*^9, 
  3.6647340263790517`*^9}},
 CellLabel->"In[155]:="],

Cell[BoxData[
 TemplateBox[{Graphics3DBox[
    GraphicsComplex3DBox[CompressedData["
1:eJw0nHc8ln8XxylJKWWUIiGilJURkUOlZESLZFXSFFGpZFQSobIaJBmprEJG
[encoded data, 22440 characters]
RCjOtapxv1Zjk9c=
     "], {{}, {}, {
       RGBColor[0.368417, 0.506779, 0.709798], 
       AbsoluteThickness[2], 
       Line3DBox[CompressedData["
1:eJwl1nfcFlIYxvG3XSotqVTS0p5WRkJGJCPaRaKQiDQQkr1byEgilbRsGsoe
Uak0Katl75EU3+vjj1/3/bvO8/SM+5zzvLX7De58WaGCgoIthQsKUpuq92qW
qnupz6gV8aS18epvssvRmw/la/Wd8R0/CF1kL/ODsIzfAlFBM/+MkZXGNN4H
B6Or/BXZwVjOb0URNJePlZXBdH4ODkE3+XzZIVjBb0NRtJCPk5XFDH4uDkV3
+QLZofiI3573JNvOz8duPouXxR28GG+pH6/fG8/qK2EDnrI2Qf09/5d6hbpY
PQB9rQ1T18nOwvd8Ki+G0fww3kO/MD1W8jtQHK3kE2TlMJOfh+Gy9fxs/MDb
oKdsEW+DVfzOfF+yHfwC7OEl0Fp2Hy+P5/T74Gn5feofeW11iLpErY3P0c/6
iHxOeRf8yJ/kxXEjP5z30r+aHqv5XSiZucvvl1XALH4+jkAp7IXSmbXHPGC9
ImbzC3AkymSu1ibKK2EO74+j0Fu+WHYEPuZ3Z96yr3l//MvLZs6yB/k+mMvv
53/qr8Rr+joYIL9K3Zh9pnZVX1Kr4lP8ZH2aWgI3WWubPapfoj8Sa/g92T+y
b/iAHJbsEeUw2UP6ypjHL8TRKJe5WXtYvm/OEr8I7VAeFVARh3vMI9arZL/x
i3FM9rz8NdlRWMvvRaV8t/JJsqqZL3+A/6UfioH8av6Jvhte1lfDJvxsbbpa
Eqtxs/U31fo4NmdGfT2fHev4I3y3/mqMyX7l3+ovRKF835mh7FF9NTzPL8E1
+U55d/zCj0Nf2Rv8aKznY1E5c5ZPlu2HF/hEvlM/DIP4yLx3fQ+8ot8Pm/Gr
tRlqKXyMW6y/pR6I9jlD6puydtjAx+W8yL7jF6FwZiJrK3tMXx0v8ktxPKpk
htamyGtkr/DLcAKqZobWHpfXzHfMB+NE9JO/JTsGG3NnolrmKX9Ctn8+B3+Q
/60fnvuUX5vPpe+J+frquWvlT+Uexhrcau1ttQG+xEk5a+rb8g8yw8xArZz5
W5uk7pFdgwk5r/x7/cUoku9cdqxsqr5WXpdfgQ45n/J3ZMfh09wdqJ5Z5rdA
dgAW8CE4OWdW/q6sPTblDKIG2sunyWpjIb8Sp2CA/D3Z8dicPYya+e7l02V1
sIgPxXWyz3gv/M5n8tK4jb+jNkTHnDv1fdmH6gnZT+q+OfN5vvVH1X/lIzEx
9wn/IWcGRTObzFc2Q18Xr/JhODXnVr5UdiI+z/xQKzPP74KsHhbz4bg+dyrv
jT/407wMbuedcr71H+iXZYbZd2qVzAxfWJ+s5kdzFa61/rpaN3dM7iD1R9kl
KJY5yE6SzdTXxxI+AqehdmaZu19+YO7C3IE4HXVQF/UyP4+ZZb1BXiv3B87A
QPmHsg74kj+M+pmffLasId7IeceovHfeB3/yM3MXyJbxk/EVf4wXwnV5nlov
z8ndl7std7B8hTooe0utgeL62ereuDOfw2M76ufoG+X+yh2BzhgkXy47BVuy
/9Eg85PPlTXOHZGzhrPQEI3QGJ08Zp71Jjlj2XM4O/eBfIWsI7ZmD6FJvl/5
M7Km2YOZOW7IueTn4C/eJXeG7CN+KrbxKbwwrueT+Zjcy/pLcz70NbNXUYLP
UcthLe7i76qN0DQzVJ+VNUvOH+K79CMwio/mX+nPxU7eNXeUbGX2ILZnHmiW
WcufkzXHe/kcuFG2hffF37wbLs+e5KdhB3+cF8EoPoWP1f+izx+Ui/T7o6R+
rloe63B3XkNtnPeH5tkr6vPyFng/+4z/o78Ko/lNfKv+POzi3XNPyVbz0/F1
3gtaZB/IX5C1xNJ8DvRAy8zc2ovyVrkv8/+iZ+6w/IbIzsA3/Am0yvzlL8la
507hNwfZNt4P//BeudNyP/Mz8W2ez4viBj6Vj9P/qh+cO0VfC6X089QKWI97
8tnVJoX//1u8tef9B32Aam0=
        "], VertexColors -> Automatic]}}, 
     VertexColors -> {
       Hue[0.], 
       Hue[0.019628641594536176`], 
       Hue[0.04090833834702348], 
       Hue[0.06077786564271804], 
       Hue[0.08025763168653448], 
       Hue[0.10138845288830205`], 
       Hue[0.12110910463327687`], 
       Hue[0.14248081153620282`], 
       Hue[0.16346275718725067`], 
       Hue[0.18303453338150574`], 
       Hue[0.20425736473371195`], 
       Hue[0.22407002662912542`], 
       Hue[0.24349292727266078`], 
       Hue[0.2645668830741473], 
       Hue[0.284230669418841], 
       Hue[0.30554551092148585`], 
       Hue[0.32647059117225263`], 
       Hue[0.3459855019662266], 
       Hue[0.3671514679181518], 
       Hue[0.38690726441328416`], 
       Hue[0.4083141160663677], 
       Hue[0.4293312064675731], 
       Hue[0.44893812741198574`], 
       Hue[0.47019610351434954`], 
       Hue[0.4900439101599206], 
       Hue[0.5095019555536136], 
       Hue[0.5306110561052576], 
       Hue[0.5503099872001089], 
       Hue[0.5716599734529113], 
       Hue[0.5926201984538356], 
       Hue[0.6121702539979672], 
       Hue[0.63337136470005], 
       Hue[0.6531623059453399], 
       Hue[0.6725634859387517], 
       Hue[0.6936157210901148], 
       Hue[0.7132577867846852], 
       Hue[0.7345509076372067], 
       Hue[0.7544338590329354], 
       Hue[0.773927049176786], 
       Hue[0.7950712944785877], 
       Hue[0.8148053703235966], 
       Hue[0.8361905013265567], 
       Hue[0.8571858710776387], 
       Hue[0.876771071371928], 
       Hue[0.8980073268241684], 
       Hue[0.9178334128196161], 
       Hue[0.9372697375631855], 
       Hue[0.9583571174647062], 
       Hue[0.978034327909434], 
       Hue[1.], 
       Hue[0.00981432079726809], 
       Hue[0.030268489970779827`], 
       Hue[0.050843101994870764`], 
       Hue[0.07051774866462625], 
       Hue[0.09082304228741825], 
       Hue[0.11124877876078947`], 
       Hue[0.13179495808473984`], 
       Hue[0.15297178436172673`], 
       Hue[0.21416369568141871`], 
       Hue[0.2337814769508931], 
       Hue[0.254029905173404], 
       Hue[0.2743987762464941], 
       Hue[0.2948880901701635], 
       Hue[0.35656848494218923`], 
       Hue[0.37702936616571797`], 
       Hue[0.3976106902398259], 
       Hue[0.4188226612669704], 
       Hue[0.43913466693977943`], 
       Hue[0.45956711546316764`], 
       Hue[0.480120006837135], 
       Hue[0.49977293285676705`], 
       Hue[0.5200565058294356], 
       Hue[0.5404605216526832], 
       Hue[0.5609849803265101], 
       Hue[0.5821400859533735], 
       Hue[0.6023952262259015], 
       Hue[0.6227708093490086], 
       Hue[0.6432668353226949], 
       Hue[0.6628628959420457], 
       Hue[0.7239043472109459], 
       Hue[0.7444923833350711], 
       Hue[0.7641804541048608], 
       Hue[0.7844991718276869], 
       Hue[0.8466881862020976], 
       Hue[0.8669784712247832], 
       Hue[0.8873891990980481], 
       Hue[0.9079203698218922], 
       Hue[0.9275515751914007], 
       Hue[0.9478134275139458], 
       Hue[0.9681957226870701], 
       Hue[0.9890171639547172], 
       Hue[0.004907160398634045], 
       Hue[0.024948565782658003`], 
       Hue[0.04587572017094712], 
       Hue[0.06564780715367213], 
       Hue[0.08554033698697636], 
       Hue[0.10631861582454576`], 
       Hue[0.12645203135900837`], 
       Hue[0.14772629794896477`], 
       Hue[0.20921053020756533`], 
       Hue[0.2289257517900093], 
       Hue[0.2487614162230324], 
       Hue[0.26948282966032067`], 
       Hue[0.28955937979450225`], 
       Hue[0.35127699345420793`], 
       Hue[0.3720904170419349], 
       Hue[0.392258977326555], 
       Hue[0.41356838866666906`], 
       Hue[0.4342329367036763], 
       Hue[0.4542526214375767], 
       Hue[0.4751580551757423], 
       Hue[0.4949084215083438], 
       Hue[0.5147792306915245], 
       Hue[0.5355357888789705], 
       Hue[0.5556474837633095], 
       Hue[0.5769000297031425], 
       Hue[0.5975077123398685], 
       Hue[0.617470531673488], 
       Hue[0.6383191000113724], 
       Hue[0.6580126009436927], 
       Hue[0.7185810669978157], 
       Hue[0.7395216454861389], 
       Hue[0.7593071565688981], 
       Hue[0.7792131105022365], 
       Hue[0.8414393437643272], 
       Hue[0.8620821711512109], 
       Hue[0.8820801352349881], 
       Hue[0.9029638483230302], 
       Hue[0.9226924940055083], 
       Hue[0.9425415825385657], 
       Hue[0.9632764200758881], 
       Hue[0.9835257459320755], 
       Hue[0.014721481195902135`], 
       Hue[0.035588414158901654`], 
       Hue[0.0558104838187944], 
       Hue[0.07538769017558036], 
       Hue[0.09610574758786015], 
       Hue[0.11617894169703316`], 
       Hue[0.13713788481047134`], 
       Hue[0.2386372021117769], 
       Hue[0.25929839412377564`], 
       Hue[0.36185997643017054`], 
       Hue[0.38196831528950104`], 
       Hue[0.40296240315309684`], 
       Hue[0.42407693386727174`], 
       Hue[0.48508195849852775`], 
       Hue[0.5046374442051903], 
       Hue[0.5253337809673466], 
       Hue[0.5453852544263961], 
       Hue[0.5663224768897107], 
       Hue[0.5873801422036046], 
       Hue[0.6072827401119343], 
       Hue[0.6280710870245292], 
       Hue[0.7292276274240762], 
       Hue[0.7494631211840033], 
       Hue[0.7690537516408233], 
       Hue[0.8519370286398682], 
       Hue[0.8718747712983557], 
       Hue[0.8926982629611083], 
       Hue[0.9128768913207541], 
       Hue[0.9324106563772933], 
       Hue[0.9731150252982521], 
       Hue[0.9945085819773587], 
       Hue[0.002453580199317022], 
       Hue[0.02228860368859709], 
       Hue[0.043392029258985304`], 
       Hue[0.06321283639819508], 
       Hue[0.08289898433675542], 
       Hue[0.1038535343564239], 
       Hue[0.12378056799614262`], 
       Hue[0.14510355474258382`], 
       Hue[0.20673394747063864`], 
       Hue[0.22649788920956734`], 
       Hue[0.2461271717478466], 
       Hue[0.267024856367234], 
       Hue[0.2868950246066716], 
       Hue[0.3486312477102173], 
       Hue[0.3696209424800434], 
       Hue[0.38958312086991953`], 
       Hue[0.41094125236651835`], 
       Hue[0.43178207158562465`], 
       Hue[0.45159537442478126`], 
       Hue[0.47267707934504594`], 
       Hue[0.4924761658341322], 
       Hue[0.512140593122569], 
       Hue[0.533073422492114], 
       Hue[0.5529787354817092], 
       Hue[0.5742800015780268], 
       Hue[0.5950639553968521], 
       Hue[0.6148203928357275], 
       Hue[0.6358452323557112], 
       Hue[0.6555874534445162], 
       Hue[0.7159194268912504], 
       Hue[0.7370362765616728], 
       Hue[0.7568705078009167], 
       Hue[0.7765700798395112], 
       Hue[0.838814922545442], 
       Hue[0.8596340211144249], 
       Hue[0.8794256033034581], 
       Hue[0.9004855875735993], 
       Hue[0.9202629534125621], 
       Hue[0.9399056600508756], 
       Hue[0.9608167687702971], 
       Hue[0.9807800369207548], 
       Hue[0.012267900996585111`], 
       Hue[0.03292845206484074], 
       Hue[0.05332679290683258], 
       Hue[0.07295271942010331], 
       Hue[0.0934643949376392], 
       Hue[0.11371386022891132`], 
       Hue[0.1344664214476056], 
       Hue[0.23620933953133502`], 
       Hue[0.25666414964858986`], 
       Hue[0.3592142306861799], 
       Hue[0.37949884072760953`], 
       Hue[0.40028654669646135`], 
       Hue[0.4214497975671211], 
       Hue[0.4826009826678314], 
       Hue[0.5022051885309787], 
       Hue[0.5226951433983911], 
       Hue[0.5429228880395397], 
       Hue[0.5636537286081105], 
       Hue[0.584760114078489], 
       Hue[0.6048389831689178], 
       Hue[0.625420948186769], 
       Hue[0.7265659873175111], 
       Hue[0.7469777522595371], 
       Hue[0.766617102872842], 
       Hue[0.8493126074209829], 
       Hue[0.8694266212615694], 
       Hue[0.8900437310295782], 
       Hue[0.9103986305713231], 
       Hue[0.929981115784347], 
       Hue[0.970655373992661], 
       Hue[0.9917628729660379], 
       Hue[0.007360740597951067], 
       Hue[0.0881816896371973], 
       Hue[0.1087836972926676], 
       Hue[0.12912349472187412`], 
       Hue[0.2513956606982182], 
       Hue[0.37455989160382647`], 
       Hue[0.39493483378319044`], 
       Hue[0.4161955249668197], 
       Hue[0.4973406771825554], 
       Hue[0.579520057828258], 
       Hue[0.6201206705112483], 
       Hue[0.7420070144106049], 
       Hue[0.8645303211879971], 
       Hue[0.884734667166518], 
       Hue[0.9054421090724611], 
       Hue[0.9251220345984547], 
       Hue[0.9862714549433964], 
       Hue[0.07782266093105743], 
       Hue[0.11864402316515502`], 
       Hue[0.24106506469221886`], 
       Hue[0.2619326385989615], 
       Hue[0.3844377898513926], 
       Hue[0.4267040701674224], 
       Hue[0.507069699879402], 
       Hue[0.5900001703287201], 
       Hue[0.6307212258622895], 
       Hue[0.7519484901084693], 
       Hue[0.8743229213351418], 
       Hue[0.915355152070185], 
       Hue[0.9972542909886795], 
       Hue[0.0012267900996585112`], 
       Hue[0.020958622641566633`], 
       Hue[0.042150183803004386`], 
       Hue[0.061995351020456564`], 
       Hue[0.08157830801164495], 
       Hue[0.10262099362236299`], 
       Hue[0.12244483631470975`], 
       Hue[0.14379218313939332`], 
       Hue[0.2054956561021753], 
       Hue[0.2252839579193464], 
       Hue[0.24481004951025367`], 
       Hue[0.2657958697206906], 
       Hue[0.2855628470127563], 
       Hue[0.34730837483822197`], 
       Hue[0.36838620519909765`], 
       Hue[0.3882451926416019], 
       Hue[0.409627684216443], 
       Hue[0.4305566390265989], 
       Hue[0.45026675091838353`], 
       Hue[0.4714365914296977], 
       Hue[0.4912600379970264], 
       Hue[0.5108212743380912], 
       Hue[0.5318422392986858], 
       Hue[0.551644361340909], 
       Hue[0.5729699875154691], 
       Hue[0.5938420769253439], 
       Hue[0.6134953234168474], 
       Hue[0.6346082985278805], 
       Hue[0.654374879694928], 
       Hue[0.7145886068379679], 
       Hue[0.7357935920994397], 
       Hue[0.7556521834169261], 
       Hue[0.7752485645081485], 
       Hue[0.8375027119359993], 
       Hue[0.8584099460960318], 
       Hue[0.878098337337693], 
       Hue[0.8992464571988837], 
       Hue[0.919048183116089], 
       Hue[0.9385876988070306], 
       Hue[0.9595869431175017], 
       Hue[0.9794071824150944], 
       Hue[0.0110411108969266], 
       Hue[0.031598471017810284`], 
       Hue[0.052084947450851675`], 
       Hue[0.07173523404236479], 
       Hue[0.09214371861252872], 
       Hue[0.11248131949485038`], 
       Hue[0.13313068976617273`], 
       Hue[0.23499540824111403`], 
       Hue[0.25534702741099696`], 
       Hue[0.3578913578141846], 
       Hue[0.3782641034466637], 
       Hue[0.3989486184681436], 
       Hue[0.42013622941704576`], 
       Hue[0.48136049475248316`], 
       Hue[0.500989060693873], 
       Hue[0.5213758246139133], 
       Hue[0.5416917048461114], 
       Hue[0.5623193544673103], 
       Hue[0.5834501000159313], 
       Hue[0.6036171046974097], 
       Hue[0.6240958787678887], 
       Hue[0.7252351672642284], 
       Hue[0.745735067797304], 
       Hue[0.7653987784888514], 
       Hue[0.8480003968115403], 
       Hue[0.8682025462431763], 
       Hue[0.8887164650638132], 
       Hue[0.9091595001966077], 
       Hue[0.928766345487874], 
       Hue[0.9694255483398655], 
       Hue[0.9903900184603776], 
       Hue[0.006133950498292556], 
       Hue[0.08686101331208682], 
       Hue[0.10755115655860668`], 
       Hue[0.12778776304044123`], 
       Hue[0.25007853846062533`], 
       Hue[0.3733251543228807], 
       Hue[0.39359690555487276`], 
       Hue[0.41488195681674434`], 
       Hue[0.49612454934544964`], 
       Hue[0.5782100437657003], 
       Hue[0.6187956010923682], 
       Hue[0.7407643299483719], 
       Hue[0.8633062461696039], 
       Hue[0.8834074012007531], 
       Hue[0.9042029786977458], 
       Hue[0.9239072643019814], 
       Hue[0.9848986004377359], 
       Hue[0.07660517555331889], 
       Hue[0.1174114824310941], 
       Hue[0.2398511334019979], 
       Hue[0.2606155163613686], 
       Hue[0.3832030525704468], 
       Hue[0.42539050201734707`], 
       Hue[0.5058535720422962], 
       Hue[0.5886901562661623], 
       Hue[0.6293961564434094], 
       Hue[0.7507058056462362], 
       Hue[0.8730988463167486], 
       Hue[0.9141160216954697], 
       Hue[0.9958814364830191], 
       Hue[0.003680370298975533], 
       Hue[0.08421966066186588], 
       Hue[0.1251162996775755], 
       Hue[0.2474442939854395], 
       Hue[0.37085567976098915`], 
       Hue[0.41225482051659373`], 
       Hue[0.493692293671238], 
       Hue[0.880752869269223], 
       Hue[0.9214777237090354], 
       Hue[0.3807335780085553], 
       Hue[0.5034213163680845], 
       Hue[0.5860701281410469], 
       Hue[0.6267460176056491], 
       Hue[0.7482204367217702], 
       Hue[0.8706506962799626], 
       Hue[0.9116377609460385], 
       Hue[0.9931357274716983], 
       Hue[0.08950236596230779], 
       Hue[0.13045922640330698`], 
       Hue[0.2527127829358111], 
       Hue[0.3757946288847722], 
       Hue[0.41750909311689505`], 
       Hue[0.49855680501966126`], 
       Hue[0.5808300718908158], 
       Hue[0.6214457399301284], 
       Hue[0.07904014630879595], 
       Hue[0.7531911745707024], 
       Hue[0.875546996353535], 
       Hue[0.9165942824449005], 
       Hue[0.9986271454943397], 
       Hue[0.0006133950498292555], 
       Hue[0.020293632118051404`], 
       Hue[0.04152926107501393], 
       Hue[0.0613866083315873], 
       Hue[0.08091796984908971], 
       Hue[0.10200472325533251`], 
       Hue[0.1217769704739933], 
       Hue[0.14313649733779807`], 
       Hue[0.2048765104179436], 
       Hue[0.2246769922742359], 
       Hue[0.2441514883914572], 
       Hue[0.2651813763974189], 
       Hue[0.28489675821579863`], 
       Hue[0.3466469384022243], 
       Hue[0.36776883655862475`], 
       Hue[0.38757622852744306`], 
       Hue[0.4089709001414054], 
       Hue[0.42994392274708604`], 
       Hue[0.4496024391651846], 
       Hue[0.4708163474720236], 
       Hue[0.4906519740784735], 
       Hue[0.5101616149458524], 
       Hue[0.5312266477019717], 
       Hue[0.5509771742705089], 
       Hue[0.5723149804841903], 
       Hue[0.5932311376895897], 
       Hue[0.6128327887074073], 
       Hue[0.6339898316139653], 
       Hue[0.6537685928201339], 
       Hue[0.7139231968113265], 
       Hue[0.7351722498683232], 
       Hue[0.7550430212249308], 
       Hue[0.7745878068424673], 
       Hue[0.836846606631278], 
       Hue[0.8577979085868352], 
       Hue[0.8774347043548104], 
       Hue[0.8986268920115261], 
       Hue[0.9184407979678525], 
       Hue[0.937928718185108], 
       Hue[0.9589720302911039], 
       Hue[0.9787207551622642], 
       Hue[0.010427715847097346`], 
       Hue[0.030933480494295052`], 
       Hue[0.051464024722861226`], 
       Hue[0.07112649135349551], 
       Hue[0.09148338044997348], 
       Hue[0.11186504912781992`], 
       Hue[0.13246282392545627`], 
       Hue[0.23438844259600355`], 
       Hue[0.2546884662922005], 
       Hue[0.35722992137818693`], 
       Hue[0.3776467348061909], 
       Hue[0.3982796543539847], 
       Hue[0.41947944534200804`], 
       Hue[0.4807402507948091], 
       Hue[0.50038099677532], 
       Hue[0.5207161652216744], 
       Hue[0.5410761132493973], 
       Hue[0.5616521673969103], 
       Hue[0.5827950929846524], 
       Hue[0.6030061654616555], 
       Hue[0.6234333440584487], 
       Hue[0.7245697572375873], 
       Hue[0.7451137255661876], 
       Hue[0.7647896162968562], 
       Hue[0.8473442915068189], 
       Hue[0.8675905087339798], 
       Hue[0.8880528320809306], 
       Hue[0.9085399350092499], 
       Hue[0.9281589603396373], 
       Hue[0.9688106355134679], 
       Hue[0.9897035912075473], 
       Hue[0.0055205554484633], 
       Hue[0.08620067514953159], 
       Hue[0.10693488619157623`], 
       Hue[0.1271198971997248], 
       Hue[0.24941997734182883`], 
       Hue[0.3727077856824078], 
       Hue[0.39292794144071386`], 
       Hue[0.41422517274170667`], 
       Hue[0.49551648542689675`], 
       Hue[0.5775550367344213], 
       Hue[0.6181330663829281], 
       Hue[0.7401429877172554], 
       Hue[0.8626942086604074], 
       Hue[0.8827437682178706], 
       Hue[0.903583413510388], 
       Hue[0.923299879153745], 
       Hue[0.9842121731849057], 
       Hue[0.07599643286444963], 
       Hue[0.11679521206406362`], 
       Hue[0.23924416775688742`], 
       Hue[0.2599569552425721], 
       Hue[0.38258568392997394`], 
       Hue[0.42473371794230946`], 
       Hue[0.5052455081237432], 
       Hue[0.5880351492348834], 
       Hue[0.6287336217339693], 
       Hue[0.7500844634151197], 
       Hue[0.8724868088075521], 
       Hue[0.9134964565081118], 
       Hue[0.9951950092301888], 
       Hue[0.003066975249146278], 
       Hue[0.08355932249931065], 
       Hue[0.12444843383685905`], 
       Hue[0.24678573286664302`], 
       Hue[0.3702383111205163], 
       Hue[0.411598036441556], 
       Hue[0.4930842297526851], 
       Hue[0.8800892362863405], 
       Hue[0.9208703385607987], 
       Hue[0.3801162093680824], 
       Hue[0.5028132524495317], 
       Hue[0.5854151211097679], 
       Hue[0.626083482896209], 
       Hue[0.7475990944906536], 
       Hue[0.8700386587707659], 
       Hue[0.9110181957586809], 
       Hue[0.992449300218868], 
       Hue[0.08884202779975253], 
       Hue[0.12979136056259055`], 
       Hue[0.25205422181701465`], 
       Hue[0.3751772602442993], 
       Hue[0.41685230904185744`], 
       Hue[0.49794874110110837`], 
       Hue[0.580175064859537], 
       Hue[0.6207832052206884], 
       Hue[0.07843140361992668], 
       Hue[0.7525698323395859], 
       Hue[0.8749349588443384], 
       Hue[0.9159747172575429], 
       Hue[0.9979407182415095], 
       Hue[0.0018401851494877666`], 
       Hue[0.0822386461742002], 
       Hue[0.12311270215542619`], 
       Hue[0.5015971246124258], 
       Hue[0.5841051070472102], 
       Hue[0.6247584134773289], 
       Hue[0.2507370995794218], 
       Hue[0.37394252296335356`], 
       Hue[0.41553874089178205`], 
       Hue[0.4967326132640025], 
       Hue[0.7513271478773528], 
       Hue[0.8737108838259453], 
       Hue[0.9147355868828273], 
       Hue[0.9965678637358493], 
       Hue[0.08487999882442113], 
       Hue[0.12578416551829194`], 
       Hue[0.24810285510423596`], 
       Hue[0.6274085523150892], 
       Hue[0.7488417789528867], 
       Hue[0.3764119975252451], 
       Hue[0.41816587719193266`], 
       Hue[0.4991648689382141], 
       Hue[0.5814850789220947], 
       Hue[0.8761590338627314], 
       Hue[0.9172138476322582], 
       Hue[0.9993135727471698], 
       Hue[0.0003066975249146278], 
       Hue[0.01996113685629379], 
       Hue[0.04121879971101871], 
       Hue[0.06108223698715268], 
       Hue[0.08058780076781208], 
       Hue[0.10169658807181728`], 
       Hue[0.1214430375536351], 
       Hue[0.14280865443700047`], 
       Hue[0.2045669375758278], 
       Hue[0.22437350945168066`], 
       Hue[0.243822207832059], 
       Hue[0.2648741297357831], 
       Hue[0.2845637138173198], 
       Hue[0.3463162201842255], 
       Hue[0.3674601522383883], 
       Hue[0.3872417464703636], 
       Hue[0.4086425081038866], 
       Hue[0.4296375646073296], 
       Hue[0.4492702832885852], 
       Hue[0.47050622549318666`], 
       Hue[0.4903479421191971], 
       Hue[0.5098317852497329], 
       Hue[0.5309188519036145], 
       Hue[0.550643580735309], 
       Hue[0.5719874769685508], 
       Hue[0.5929256680717127], 
       Hue[0.6125015213526873], 
       Hue[0.6336805981570075], 
       Hue[0.653465449382737], 
       Hue[0.7135904917980059], 
       Hue[0.7348615787527648], 
       Hue[0.7547384401289331], 
       Hue[0.7742574280096266], 
       Hue[0.8365185539789174], 
       Hue[0.857491889832237], 
       Hue[0.8771028878633692], 
       Hue[0.8983171094178474], 
       Hue[0.9181371053937343], 
       Hue[0.9375992278741467], 
       Hue[0.9586645738779049], 
       Hue[0.9783775415358491], 
       Hue[0.010121018322182717`], 
       Hue[0.03060098523253744], 
       Hue[0.05115356335886599], 
       Hue[0.07082212000906088], 
       Hue[0.09115321136869588], 
       Hue[0.1115569139443047], 
       Hue[0.1321288910050981], 
       Hue[0.23408495977344831`], 
       Hue[0.25435918573280225`], 
       Hue[0.3568992031601881], 
       Hue[0.3773380504859544], 
       Hue[0.39794517229690535`], 
       Hue[0.4191510533044892], 
       Hue[0.4804301288159721], 
       Hue[0.5000769648160436], 
       Hue[0.520386335525555], 
       Hue[0.5407683174510403], 
       Hue[0.5613185738617102], 
       Hue[0.582467589469013], 
       Hue[0.6027006958437785], 
       Hue[0.6231020767037286], 
       Hue[0.7242370522242665], 
       Hue[0.7448030544506292], 
       Hue[0.7644850352008584], 
       Hue[0.8470162388544583], 
       Hue[0.8672844899793815], 
       Hue[0.8877210155894893], 
       Hue[0.9082301524155709], 
       Hue[0.9278552677655191], 
       Hue[0.9685031791002691], 
       Hue[0.9893603775811322], 
       Hue[0.005213857923548673], 
       Hue[0.08587050606825399], 
       Hue[0.106626751008061], 
       Hue[0.1267859642793666], 
       Hue[0.24909069678243062`], 
       Hue[0.37239910136217136`], 
       Hue[0.39259345938363444`], 
       Hue[0.41389678070418784`], 
       Hue[0.49521245346762033`], 
       Hue[0.5772275332187818], 
       Hue[0.617801799028208], 
       Hue[0.739832316601697], 
       Hue[0.8623881899058091], 
       Hue[0.8824119517264293], 
       Hue[0.903273630916709], 
       Hue[0.9229961865796267], 
       Hue[0.9838689595584906], 
       Hue[0.07569206152001501], 
       Hue[0.11648707688054839`], 
       Hue[0.23894068493433215`], 
       Hue[0.2596276746831739], 
       Hue[0.3822769996097375], 
       Hue[0.42440532590479063`], 
       Hue[0.5049414761644668], 
       Hue[0.587707645719244], 
       Hue[0.6284023543792493], 
       Hue[0.7497737922995614], 
       Hue[0.8721807900529538], 
       Hue[0.9131866739144329], 
       Hue[0.9948517956037737], 
       Hue[0.00276027772423165], 
       Hue[0.08322915341803305], 
       Hue[0.12411450091650082`], 
       Hue[0.2464564523072448], 
       Hue[0.36992962680027985`], 
       Hue[0.4112696444040372], 
       Hue[0.4927801977934087], 
       Hue[0.8797574197948993], 
       Hue[0.9205666459866805], 
       Hue[0.379807525047846], 
       Hue[0.5025092204902553], 
       Hue[0.5850876175941285], 
       Hue[0.625752215541489], 
       Hue[0.7472884233750953], 
       Hue[0.8697326400161678], 
       Hue[0.9107084131650021], 
       Hue[0.9921060865924529], 
       Hue[0.0885118587184749], 
       Hue[0.1294574276422323], 
       Hue[0.25172494125761646`], 
       Hue[0.3748685759240629], 
       Hue[0.4165239170043386], 
       Hue[0.49764470914183195`], 
       Hue[0.5798475613438975], 
       Hue[0.6204519378659683], 
       Hue[0.07812703227549204], 
       Hue[0.7522591612240275], 
       Hue[0.8746289400897401], 
       Hue[0.915664934663864], 
       Hue[0.9975975046150946], 
       Hue[0.0015334876245731387`], 
       Hue[0.08190847709292258], 
       Hue[0.12277876923506796`], 
       Hue[0.5012930926531494], 
       Hue[0.5837776035315708], 
       Hue[0.6244271461226089], 
       Hue[0.25040781902002357`], 
       Hue[0.3736338386431171], 
       Hue[0.4152103488542632], 
       Hue[0.49642858130472606`], 
       Hue[0.7510164767617945], 
       Hue[0.873404865071347], 
       Hue[0.9144258042891484], 
       Hue[0.9962246501094342], 
       Hue[0.08454982974314351], 
       Hue[0.12545023259793373`], 
       Hue[0.24777357454483775`], 
       Hue[0.6270772849603691], 
       Hue[0.7485311078373283], 
       Hue[0.37610331320500867`], 
       Hue[0.4178374851544138], 
       Hue[0.4988608369789377], 
       Hue[0.5811575754064553], 
       Hue[0.8758530151081332], 
       Hue[0.9169040650385794], 
       Hue[0.9989703591207547], 
       Hue[0.0009200925747438833], 
       Hue[0.5006850287345965], 
       Hue[0.5831225965002919], 
       Hue[0.6237646114131687], 
       Hue[0.24974925790122707`], 
       Hue[0.7503951345306781], 
       Hue[0.08388949158058827], 
       Hue[0.12478236675721728`], 
       Hue[0.6264147502509291], 
       Hue[0.37548594456453577`], 
       Hue[0.41718070107937627`], 
       Hue[0.4982527730603848], 
       Hue[0.8752409775989366], 
       Hue[0.9162844998512216], 
       Hue[0.9982839318679246], 
       Hue[0.0825688152554778], 
       Hue[0.5844326105628496], 
       Hue[0.6250896808320489], 
       Hue[0.25106638013882], 
       Hue[0.37425120728359], 
       Hue[0.4158671329293009], 
       Hue[0.8740169025805434], 
       Hue[0.12611809843865013`], 
       Hue[0.749152450068445], 
       Hue[0.4994689008974905], 
       Hue[0.9175236302259372], 
       Hue[0.999656786373585]}], Axes -> True, AxesLabel -> {
      FormBox["x", TraditionalForm], 
      FormBox["y", TraditionalForm], 
      FormBox["z", TraditionalForm]}, DisplayFunction -> Identity, 
    FaceGridsStyle -> Automatic, ImageSize -> {250, 250}, Lighting -> 
    "Neutral", Method -> {}, 
    PlotRange -> {{-1, 1}, {-1, 1}, {-0.9999996658276197, 
      0.9999993650500513}}, PlotRangePadding -> {Automatic, Automatic, 
      Scaled[0.02]}, Ticks -> {Automatic, Automatic, Automatic}, 
    ViewPoint -> {-0.5586779157532757, -3.309759514592827, 
     0.4282183345115422}, 
    ViewVertical -> {-0.12515892718859017`, -0.4905406803909922, 
     0.8739555917472756}],TemplateBox[{
     StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            StyleBox[
             TagBox[
              FormBox["\"Time\"", TraditionalForm], TraditionalForm, Editable -> 
              True], {FontFamily -> "Arial"}, Background -> Automatic, 
             StripOnInput -> False]}, {
            GraphicsBox[{{}, {}, 
              RasterBox[CompressedData["
1:eJx1mDtMVEEUhtfYECqKtQXs1o5ES3XptISNhQUFIWropDTEggITChMpKNSC
kECBDcHEBEgMWV/hETSL8lgQcJf3m200lO49Bzj3Pz8zCVn4uDv3zJmZ/z8z
11ueZh5fTSQSU+WfK+Wf6HdtpXTi0lZKZ6tfHDSO9qYv50PEKxb72+5UjhAf
lefHid+6GbUvgX4miBfak0P3itOB/n8Qv1+MvjAbeO8v4rVRN9XzxCslnkXi
/1JNrz7/zRNflziXic9IWwnEv0Y8I/8oBMZVJH5XAl0PjHeD+I0o/NQm8RrJ
wxbxa+WXtie3A/nZIa6fu4G8MT9sjAa8F8jnPvEFmZaDQJ4PiZcHW37xUSD/
x8RluEMnF1zS1XT+t+2bJ9KOiUfR9bcdEX8eDaf9kHjngSSAeLcEvk/89Zuo
7REfkBfvEtfx7BDX8W8T13xtEdf8bhLX+dggrvt2nbjOd5G4ro8C8bPeiEs6
k2vEpZvUCvHbsmCXiTdIIvLEH8n8LhB/Ji+eI/5SEveT+KDMSy6wTr4T75P5
nSKelXn5Rrwk+fxEvFby8JF4h8T/gbm8913g+Z7AvFxEkU6IUHTSftLvD7BO
iNC9J67jH2MuCcsG+v9KXOd1kvVe8jIT0K0ccc0v+0le1j37ic4T+8mw7EP2
Ex3vEvEu0YXfxHXdrBJvFp36Q1x1gf1EdYT9RHWH/UR1iv1EdY39RONkP2mV
fcV+ojrLfvJA5pF9Q/2QfaNe9jn7hvoh+4bqBfuG1gXsG6o77Btav5wE1pXt
G3zO6xn7CcbhdY79pA7G6fWP/QTz6HWR/eQhzJPXS/YTXAdeR9lPOmCdeX1l
P8F17HWXfQP3iY9zlTjuQ6/TS8Rxn3v9nieOOuJ1fZa4NvYT1DU/j5OcZ9DN
2LhAZ70/jBEvNMZ13Pc/wPEn4z5x7hs9bnxl/jbuR8bRv4zXg9/F+snE/dE4
+qlx9F/jzeDXsefB3413Qz3g45/j/qHeMI71SWy8UM8Yr4X6x3gV1EvG9ZP9
4RTqMeMlqN+MY71nPA/1ofEc1JPGs1B/Gsd61fgw1LfGB6EeNt4H9bNxrLeN
d0F9brwD6nnjWP8bb4XzgvFmOF8Yx89zXWHfwHOM1xv2jRyck7wOsW8U4Bzm
9Yl94xTOeV63mFfAOdJ4FZw7vR+yn6TgXOv9kP2kHs7N3g/ZTxrgXB6bFzjH
x/IP536fTz6HlOBeIZY3uIfweWA/qYN7jth44V4kFifco/g4pwPxTHD/cK/j
+x8P9DPCvCZ+z+R5L/Oz9h+FJALw
               "], {{
                 Rational[-15, 2], 
                 Rational[-225, 2]}, {
                 Rational[15, 2], 
                 Rational[225, 2]}}], {Antialiasing -> False, 
               AbsoluteThickness[0.1], 
               Directive[
                Opacity[0.3], 
                GrayLevel[0]], 
               LineBox[
                NCache[{{
                   Rational[15, 2], 
                   Rational[-225, 2]}, {
                   Rational[-15, 2], 
                   Rational[-225, 2]}, {
                   Rational[-15, 2], 
                   Rational[225, 2]}, {
                   Rational[15, 2], 
                   Rational[225, 2]}, {
                   Rational[15, 2], 
                   Rational[-225, 2]}}, {{7.5, -112.5}, {-7.5, -112.5}, {-7.5,
                  112.5}, {7.5, 112.5}, {7.5, -112.5}}]]}, {
               CapForm[None], {}}, {Antialiasing -> False, 
               StyleBox[
                LineBox[{{7.5, -112.5}, {7.5, 112.5}}], 
                Directive[
                 AbsoluteThickness[0.2], 
                 Opacity[0.3], 
                 GrayLevel[0]], StripOnInput -> False], 
               StyleBox[
                StyleBox[{{
                   StyleBox[
                    LineBox[{{{7.5, -112.5}, 
                    Offset[{4., 0}, {7.5, -112.5}]}, {{
                    7.5, -40.84394904458598}, 
                    Offset[{4., 0}, {7.5, -40.84394904458598}]}, {{7.5, 
                    30.812101910828023`}, 
                    Offset[{4., 0}, {7.5, 30.812101910828023`}]}, {{7.5, 
                    102.46815286624204`}, 
                    Offset[{4., 0}, {7.5, 102.46815286624204`}]}}], 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], StripOnInput -> False], 
                   StyleBox[
                    LineBox[{{{7.5, -94.5859872611465}, 
                    Offset[{2.5, 0.}, {7.5, -94.5859872611465}]}, {{
                    7.5, -76.67197452229298}, 
                    Offset[{2.5, 0.}, {7.5, -76.67197452229298}]}, {{
                    7.5, -58.75796178343949}, 
                    Offset[{2.5, 0.}, {7.5, -58.75796178343949}]}, {{
                    7.5, -22.929936305732483`}, 
                    Offset[{2.5, 0.}, {7.5, -22.929936305732483`}]}, {{
                    7.5, -5.015923566878981}, 
                    Offset[{2.5, 0.}, {7.5, -5.015923566878981}]}, {{7.5, 
                    12.898089171974522`}, 
                    Offset[{2.5, 0.}, {7.5, 12.898089171974522`}]}, {{7.5, 
                    48.72611464968153}, 
                    Offset[{2.5, 0.}, {7.5, 48.72611464968153}]}, {{7.5, 
                    66.64012738853503}, 
                    Offset[{2.5, 0.}, {7.5, 66.64012738853503}]}, {{7.5, 
                    84.55414012738854}, 
                    Offset[{2.5, 0.}, {7.5, 84.55414012738854}]}}], 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4], 
                    Opacity[0.3]], StripOnInput -> False]}, 
                  StyleBox[
                   StyleBox[{{
                    StyleBox[{
                    InsetBox[
                    FormBox["0", TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -112.5}], {-1, 0.}, Automatic, {1, 
                    0}], 
                    InsetBox[
                    FormBox["2", TraditionalForm], 
                    Offset[{7., 0.}, {7.5, -40.84394904458598}], {-1, 0.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox["4", TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 30.812101910828023`}], {-1, 0.}, 
                    Automatic, {1, 0}], 
                    InsetBox[
                    FormBox["6", TraditionalForm], 
                    Offset[{7., 0.}, {7.5, 102.46815286624204`}], {-1, 0.}, 
                    Automatic, {1, 0}]}, 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4]], {
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]], 
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]]}, StripOnInput -> False], 
                    StyleBox[{{}, {}, {}, {}, {}, {}, {}, {}, {}}, 
                    Directive[
                    AbsoluteThickness[0.2], 
                    GrayLevel[0.4], 
                    Opacity[0.3]], {
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]], 
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]]}, StripOnInput -> False]}, {}}, {
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]], 
                    Directive[
                    Opacity[1], 
                    GrayLevel[0.3]]}, StripOnInput -> False], "GraphicsLabel",
                    StripOnInput -> False]}, "GraphicsTicks", StripOnInput -> 
                 False], 
                Directive[
                 AbsoluteThickness[0.2], 
                 Opacity[0.3], 
                 GrayLevel[0]], StripOnInput -> False]}}, PlotRangePadding -> 
             Scaled[0.02], PlotRange -> All, Frame -> True, 
             FrameTicks -> {{False, False}, {True, False}}, FrameStyle -> 
             Opacity[0], FrameTicksStyle -> Opacity[0], 
             ImageSize -> {Automatic, 225}, BaseStyle -> {}]}}, 
          GridBoxAlignment -> {"Columns" -> {{Center}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          GridBoxSpacings -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
      Background -> Automatic, StripOnInput -> False]}, "BarLegend", 
    DisplayFunction -> (#& ), 
    InterpretationFunction :> (RowBox[{"BarLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{"Hue", ",", 
             RowBox[{"{", 
               RowBox[{"0", ",", 
                 RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"LegendLabel", "\[Rule]", "\"Time\""}]}], "]"}]& )]},
  "RowDefault"]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.663672309327286*^9, 
   3.6636724012485437`*^9}},
 CellLabel->"Out[156]="]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Parametric Plot and the tangent vector", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"ParametricPlot3D", "[", 
         RowBox[{
          RowBox[{"Liss3D", "[", "t", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", 
            RowBox[{"2", "Pi"}]}], "}"}], ",", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
          RowBox[{"AxesLabel", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
          RowBox[{"ColorFunction", "\[Rule]", 
           RowBox[{"Function", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", 
             RowBox[{"Hue", "[", "t", "]"}]}], "]"}]}], ",", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"250", ",", "250"}], "}"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"PointSize", "[", "0.02", "]"}], ",", 
           RowBox[{"Point", "[", 
            RowBox[{"Liss3D", "[", "t0", "]"}], "]"}], ",", 
           RowBox[{"Thickness", "\[Rule]", "0.005"}], ",", 
           RowBox[{"Arrowheads", "[", ".05", "]"}], ",", 
           RowBox[{"Arrow", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Liss3D", "[", "t0", "]"}], ",", 
              RowBox[{
               RowBox[{"Liss3D", "[", "t0", "]"}], "+", 
               RowBox[{"0.3", 
                RowBox[{
                 RowBox[{"Liss3D", "'"}], "[", "t0", "]"}]}]}]}], "}"}], 
            "]"}]}], "}"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
      RowBox[{"BarLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Hue", ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"2", "\[Pi]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], "}"}], 
    "]"}], "\[IndentingNewLine]", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "t0", ",", "0", ",", "\"\<\!\(\*SubscriptBox[\(t\), \(0\)]\)\>\""}], 
      "}"}], ",", "0", ",", "20", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Liss3D", "[", "t_", "]"}], ":=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"3", "t"}], "]"}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", "t"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
  3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
  3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
  3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
  3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
  3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
  3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}, {
  3.663672461386983*^9, 3.6636725542182927`*^9}, {3.6636725882862415`*^9, 
  3.663672708357109*^9}},
 CellLabel->"In[166]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t0$$ = 0., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`t0$$], 0, "\!\(\*SubscriptBox[\(t\), \(0\)]\)"}, 0, 
      20}}, Typeset`size$$ = {381., {156., 168.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`t0$145596$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t0$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t0$$, $CellContext`t0$145596$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Row[{Show[
           ParametricPlot3D[
            $CellContext`Liss3D[$CellContext`t], {$CellContext`t, 0, 2 Pi}, 
            PlotRange -> {{-1.1, 1.1}, {-1.1, 1.1}, {-1.1, 1.1}}, 
            AxesLabel -> {$CellContext`x, $CellContext`y, $CellContext`z}, 
            ColorFunction -> 
            Function[{$CellContext`x, $CellContext`y, $CellContext`z, \
$CellContext`t}, 
              Hue[$CellContext`t]], ImageSize -> {250, 250}], 
           Graphics3D[{
             PointSize[0.02], 
             Point[
              $CellContext`Liss3D[$CellContext`t0$$]], Thickness -> 0.005, 
             Arrowheads[0.05], 
             Arrow[{
               $CellContext`Liss3D[$CellContext`t0$$], \
$CellContext`Liss3D[$CellContext`t0$$] + 
               0.3 Derivative[1][$CellContext`Liss3D][$CellContext`t0$$]}]}]] 
         BarLegend[{Hue, {0, 2 Pi}}, LegendLabel -> "Time"]}], 
      "Specifications" :> {{{$CellContext`t0$$, 0, 
          "\!\(\*SubscriptBox[\(t\), \(0\)]\)"}, 0, 20, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{446., {219., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}, 
         Attributes[Derivative] = {
          NHoldAll, ReadProtected}}; {$CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.6636688363176413`*^9, 
   3.6636688466032295`*^9}, {3.6636689097878437`*^9, 3.663668979684841*^9}, 
   3.6636690101845856`*^9, {3.663669142629161*^9, 3.6636691586330767`*^9}, {
   3.663669195169166*^9, 3.663669248580221*^9}, 3.66366930100722*^9, {
   3.6636725416215725`*^9, 3.6636725557573805`*^9}, {3.6636725999929113`*^9, 
   3.66367261571181*^9}, {3.663672653508972*^9, 3.663672708743131*^9}},
 CellLabel->"Out[166]="]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Stroboscopic plot with coloring the points", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}, {3.6636702350786457`*^9, 
   3.6636702397639136`*^9}, {3.663673098114402*^9, 3.6636731224827957`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"DynamicModule", "[", 
    RowBox[{
     RowBox[{"{", "data", "}"}], ",", 
     RowBox[{
      RowBox[{"data", "=", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"Prepend", "[", 
           RowBox[{
            RowBox[{"Liss3D", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"t", ",", "0", ",", 
            RowBox[{"2", "Pi"}], ",", 
            RowBox[{"2", 
             RowBox[{"Pi", "/", "k"}]}]}], "}"}]}], "]"}], "//", "N"}]}], ";",
       "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Graphics3D", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
              RowBox[{"data", "/.", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"t_", ",", "x_", ",", "y_", ",", "z_Real"}], "}"}], 
                "\[RuleDelayed]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Hue", "[", 
                   RowBox[{"t", "/", 
                    RowBox[{"(", 
                    RowBox[{"2", "Pi"}], ")"}]}], "]"}], ",", 
                  RowBox[{"Point", "[", 
                   RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}]}], 
                 "}"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}], ",", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"250", ",", "250"}], "}"}]}], ",", 
           RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
          "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"BarLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\"\<Rainbow\>\"", ",", 
             RowBox[{"{", 
              RowBox[{"0", ",", "20"}], "}"}]}], "}"}], ",", 
           RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], 
        "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"k", ",", "5", ",", "\"\<n\>\""}], "}"}], ",", "2", ",", "200", 
     ",", "1", ",", 
     RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
   RowBox[{"Initialization", "\[RuleDelayed]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Liss3D", "[", "t_", "]"}], ":=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Cos", "[", "t", "]"}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"3", "t"}], "]"}], ",", 
        RowBox[{"Sin", "[", 
         RowBox[{"2", "t"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
   3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
   3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
   3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
   3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
   3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
   3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}, {
   3.6636702730418167`*^9, 3.6636704095326242`*^9}, {3.663670476318444*^9, 
   3.663670599874511*^9}, {3.663670664286195*^9, 3.6636706751148143`*^9}, {
   3.6636707086857347`*^9, 3.6636707490900455`*^9}, {3.6636727414220004`*^9, 
   3.663672915043931*^9}, {3.663672948161825*^9, 3.6636730745740557`*^9}, {
   3.66367312849914*^9, 3.663673135822559*^9}, {3.6636732071846404`*^9, 
   3.663673261285735*^9}, {3.6637044708381133`*^9, 3.6637045035087557`*^9}, {
   3.6637045549008017`*^9, 3.6637045838349733`*^9}, 3.6637047442089653`*^9},
 CellLabel->"In[185]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 52, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 5, "k"}, 2, 200, 1}}, Typeset`size$$ = {
    375., {156., 168.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$306187$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$306187$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`data}, $CellContext`data = N[
           Table[
            Prepend[
             $CellContext`Liss3D[$CellContext`t], $CellContext`t], \
{$CellContext`t, 0, 2 Pi, 2 (Pi/$CellContext`k$$)}]]; Row[{
           Show[
            Graphics3D[{
              PointSize[0.015], 
              ReplaceAll[$CellContext`data, {
                 Pattern[$CellContext`t, 
                  Blank[]], 
                 Pattern[$CellContext`x, 
                  Blank[]], 
                 Pattern[$CellContext`y, 
                  Blank[]], 
                 Pattern[$CellContext`z, 
                  Blank[Real]]} :> {
                 Hue[$CellContext`t/(2 Pi)], 
                 Point[{$CellContext`x, $CellContext`y, $CellContext`z}]}]}], 
            ImageSize -> {250, 250}, PlotRange -> All], 
           BarLegend[{"Rainbow", {0, 20}}, LegendLabel -> "Time"]}]], 
      "Specifications" :> {{{$CellContext`k$$, 5, "k"}, 2, 200, 1, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{440., {219., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`data = CompressedData["
1:eJxdlXs0VWkfx3Uyh5RccqlJRKaUBoM1xts7fs+idKGTxKiFSheRLlMxpItF
ZqjkMEVqjBreabq4xOmtmOo34ZCDyj2X3A/n5mwllPN2vK219zmz1uy1zj97
n72f5/n+Pt/v13LXYd+9LA0NjfWffpoa/7xG4Z93ksccwuJc7sNYDS/Dto8C
X0l9ftbxl+BeWtKg+LwK6OdV8O+akCfiRAqKUs1ipK09cCF6oPQdvwVu3LdO
vXbrJbhpe7nJpHLYkHxEcDBpSP0/+v1WUEy19mwzlUNOS3DfrRwpZK+b9Trm
+CDsd/jWfQe/EyqCUlfVaY9Ae+pcqW+7HCbe9Bd/CBcx3++FS+E9ud7lUtDh
dbKLpyn1d0xbVpzgfj8A7K+ynXw8JdC9SPJG9lEO6W8jpT3KEWb9ISi+UL6Q
d1kEX12X7QwVSiFOr6TfL4aCDwYu/oeVIkhIKjDhlQ7B5Hi5S7J0SL0OvT8p
2KZy7MRFg1DAudVkF9oLaTq+WgNpFHRyPOw3pcihaHl0nfvpfth8o0Xv8fkG
+Jdz00awlzP7H4V2TF0+ZdMLXbeLdPj8dPU+uvl/JJrqvgX/3J85ZuGd0DZt
Pmd73XM0222zZKxSxJxvDBKjrDjHvFrhSXNHgWZPN9b+2L97TDgIPoMFR7Sa
34ETdau9mdUAh6y/vJhpOYSqfdLnn4CgWKu4bsdqsKizN6nzl6IVN7TtzMtW
+It1b/vk1UlwcnPrxNCHkO/Z1xZQIkf9tdvucDY8Y/R5Dy4e54dH+fHA1e3y
dP1IoeocjpZlXsMhU6DvGJF4/gMPty9vXrBkMYXVgxbn34krkNZPAcMe8dr5
LD7WB2xe/L/lMnTdtPTJg9JmzIW/vmmz+QhbKiHYpPcFKm7UWXVvHEbVOWl9
lcDbml6gQ1rQmd2y9D89vTidtsJs/+xBNNpe9UU1NQ0ue8qnTPd1YIbdM52k
7Eb0+O8zMNcVIa2/BpFUZUatCezBsCrBFWP+b6jSwd0t9Gxg4AySbeNefmZW
P252XFSyIq8OLDqz/B3qRpCeD4tUjPJP5rkPYryoI/TR4GvIdT9+aFswhSc2
iuOanrDID5fsvUr9hjBcI+uATplQrRM9v5lk7RHX6upVIjxkqPi1UUcKuT6p
kzP+oJAXdOAHLytN4uN6+Zj1OzHWRk6VKpPl8HhL0dMNwXKk56tJ9rh6152O
leL6wIzJ9e8pUOkoi6AOVPz4GenNz7s1VCvDVnYwvgUK2u3iuDPNxUjPn03q
K06KG4QjqMiMbdl7QAZzSthbGnyEaH3i6O5VYjbhV8zws6yS44dCi4l9hcOg
0pnmQ4tERwWVWEdQGGRwPaAuoA+SIrWSfdrbMPjc+Daetzbx00zSy2mi8Kqh
8mLfnSaQx+4efxotQJofbXI0651ZpZLCXTcU7eLfb4NqDhlXYnxs784iL22i
7nvIKJxk3pv+8sPCPQ+eMnzpELdF4Qkkm0LBlojRL0RdWMis8/ymwjNv3myy
QV+/wE+PQm3mXFxmTjR/s0m4bjRyPeVITU+QiscSfHXRKufFL59y4+HpbxdG
zyHX7rlfivQYwVJG93FGB5pPXXJv/5pDE1oyvDs7KnZglFLPEapnOF/s0CX7
Bk99HZUpwTyGizMzqUjnyyNMPswln/H+FD18I0Kd5m9CcvL/nlN0a+KK2W56
JLGrzEVmNoxrGW5Vc6b51iMvRmcdy1woxGsWAsuc530Y2HdHWVRGwau3Z9Ke
+ugTK+7Jsktv+tGZ8VU9wxHN/6fnNqtTDPN6MaGtXhlQXqzmIDKWf/4Uy4Cs
EcyNmRnehQpP2vf1yxLnW0eJgfaHAWHZDFcu8W/DzOztfD9xJxxkONdnaSW5
3jMgy5zS73CMGrGSySUVJ7R/DInFHOMxz5AazE9JGs07JIELjzt2ePa+goKz
6xLG9xoSv0nZ94aNjxCY3FzH+JD2lyFpZf0pcr15FZP6MkLYwxSoOFpvcO5U
sek8svNUVO4V4yI4xeS61bLGeikbGf/NI9Eeiys6XpZDZVzei+sSGVxlckKY
VRtzsGYewTDLB7oP62GM6Z0ChjPan0aEtyY3QenYDBM9sYH6q/uhJt1XWbxi
AOMX60YuP2FEPC9f36Wzux3SmF6cZHKM9q8Rmdrk9JPtrm7oPxt9NMjhPqg4
NL/JOSxcaUxOcKqzd17sgz1076Kh+U87RneMMP42JicFgtr6pgGwvnsuJUjU
gTuZnC2zT9v/W7cx4Za+yGHLhXCb7lU1p7T/Tch3gr4ZytfDwP5YXRW7SIK/
bLTMktZS+N2Dhr3BaSZEvrXM+/01MZyjexMLmR6g88GEGHxtG/mzgxQ4hfcO
8zooNcdv3eaFLHA3JRZHBWnPUmTApXsRC8MM2RyBmMkPU+LE9i5UFI9Abn3s
1rClI3iU6SlulV9Qy5gpsT8S8GriVzl8TveemnM6X+aT9JXmgWMcCuZIJsYX
POzHEuFq083CdrTlZAak/z6f6EbE22dXULCS7jV8zfQonT/ziZvELkVfQcEj
t2VNt7PL1D74P3pEzTA=
          "], $CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}}; {$CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.6636688363176413`*^9, 
   3.6636688466032295`*^9}, {3.6636689097878437`*^9, 3.663668979684841*^9}, 
   3.6636690101845856`*^9, {3.663669142629161*^9, 3.6636691586330767`*^9}, {
   3.663669195169166*^9, 3.663669248580221*^9}, 3.66366930100722*^9, 
   3.6636706139363155`*^9, 3.6636706773399415`*^9, {3.6636707101568184`*^9, 
   3.6636707509291506`*^9}, 3.6636727991873045`*^9, 3.663672833602273*^9, {
   3.6636728730055265`*^9, 3.663672915757972*^9}, {3.6636729577823753`*^9, 
   3.6636730752080917`*^9}, 3.6636731371376343`*^9, 3.6636732081496954`*^9, 
   3.663673261849767*^9, {3.663704475476186*^9, 3.6637045041541843`*^9}, {
   3.6637045567300134`*^9, 3.6637045847335644`*^9}},
 CellLabel->"Out[185]="]
}, {2}]]
}, Closed]],

Cell[CellGroupData[{

Cell["Stroboscopic plot with tangent vectors", "Subsection",
 CellChangeTimes->{{3.6636671393405795`*^9, 3.6636671558575244`*^9}, 
   3.66366719109254*^9, {3.6636682206264257`*^9, 3.663668223713602*^9}, {
   3.6636687405171614`*^9, 3.6636687484306145`*^9}, {3.6636702350786457`*^9, 
   3.6636702397639136`*^9}, {3.663673098114402*^9, 3.663673104362759*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"DynamicModule", "[", 
     RowBox[{
      RowBox[{"{", "data", "}"}], ",", 
      RowBox[{
       RowBox[{"data", "=", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Prepend", "[", 
            RowBox[{
             RowBox[{"Liss3D", "[", "t", "]"}], ",", "t"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"t", ",", "0", ",", 
             RowBox[{"2", "Pi"}], ",", 
             RowBox[{"Pi", "/", "k"}]}], "}"}]}], "]"}], "//", "N"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"Row", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Show", "[", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{"ParametricPlot3D", "[", 
              RowBox[{
               RowBox[{"Liss3D", "[", "t", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{"t", ",", "0", ",", 
                 RowBox[{"2", "Pi"}]}], "}"}], ",", 
               RowBox[{"PlotRange", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", 
               RowBox[{"AxesLabel", "\[Rule]", 
                RowBox[{"{", 
                 RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
               RowBox[{"ColorFunction", "\[Rule]", 
                RowBox[{"Function", "[", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{"x", ",", "y", ",", "z", ",", "t"}], "}"}], ",", 
                  RowBox[{"Hue", "[", "t", "]"}]}], "]"}]}]}], "]"}], ","}], 
            "*)"}], "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Graphics3D", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"PointSize", "[", "0.015", "]"}], ",", 
               RowBox[{"data", "/.", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"t_Real", ",", "x_", ",", "y_", ",", "z_"}], "}"}], 
                 "\[RuleDelayed]", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Hue", "[", 
                    RowBox[{"t", "/", 
                    RowBox[{"(", 
                    RowBox[{"2", "Pi"}], ")"}]}], "]"}], ",", 
                   RowBox[{"Point", "[", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", 
                   RowBox[{"Arrowheads", "[", ".03", "]"}], ",", 
                   RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], "+", 
                    RowBox[{"0.5", 
                    RowBox[{
                    RowBox[{"Liss3D", "'"}], "[", "t", "]"}]}]}]}], "}"}], 
                    "]"}]}], "}"}]}]}]}], "\[IndentingNewLine]", "}"}], "]"}],
             ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"250", ",", "250"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "All"}]}], "\[IndentingNewLine]", 
           "]"}], ",", "\[IndentingNewLine]", 
          RowBox[{"BarLegend", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"\"\<Rainbow\>\"", ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "20"}], "}"}]}], "}"}], ",", 
            RowBox[{"LegendLabel", "\[Rule]", "\"\<Time\>\""}]}], "]"}]}], 
         "}"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"k", ",", "5", ",", "\"\<n\>\""}], "}"}], ",", "2", ",", "200",
       ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", 
    RowBox[{"Initialization", "\[RuleDelayed]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Liss3D", "[", "t_", "]"}], ":=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Cos", "[", "t", "]"}], ",", 
         RowBox[{"Sin", "[", 
          RowBox[{"3", "t"}], "]"}], ",", 
         RowBox[{"Sin", "[", 
          RowBox[{"2", "t"}], "]"}]}], "}"}]}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6636648425442104`*^9, 3.6636648905219545`*^9}, {
   3.6636649967220287`*^9, 3.663665013469987*^9}, {3.663666908024349*^9, 
   3.663667106112679*^9}, {3.663667571175279*^9, 3.663667575753541*^9}, {
   3.6636682334161572`*^9, 3.663668242140656*^9}, {3.6636683273835316`*^9, 
   3.663668364564658*^9}, {3.6636686342110815`*^9, 3.6636686802587147`*^9}, {
   3.6636687614073563`*^9, 3.663669007969459*^9}, {3.6636690817636795`*^9, 
   3.663669247784176*^9}, {3.6636692957699203`*^9, 3.663669299753148*^9}, {
   3.6636702730418167`*^9, 3.6636704095326242`*^9}, {3.663670476318444*^9, 
   3.663670599874511*^9}, {3.663670664286195*^9, 3.6636706751148143`*^9}, {
   3.6636707086857347`*^9, 3.6636707490900455`*^9}, {3.6636727414220004`*^9, 
   3.663672915043931*^9}, {3.663672948161825*^9, 3.6636730745740557`*^9}, {
   3.6636732754325438`*^9, 3.663673290816424*^9}, {3.6637046563009205`*^9, 
   3.663704674443941*^9}, 3.663704726938532*^9},
 CellLabel->"In[187]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`k$$ = 22, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`k$$], 5, "n"}, 2, 200, 1}}, Typeset`size$$ = {
    375., {156., 168.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`k$315495$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`k$$ = 5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`k$$, $CellContext`k$315495$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      DynamicModule[{$CellContext`data}, $CellContext`data = N[
           Table[
            Prepend[
             $CellContext`Liss3D[$CellContext`t], $CellContext`t], \
{$CellContext`t, 0, 2 Pi, Pi/$CellContext`k$$}]]; Row[{
           Show[
            Graphics3D[{
              PointSize[0.015], 
              ReplaceAll[$CellContext`data, {
                 Pattern[$CellContext`t, 
                  Blank[Real]], 
                 Pattern[$CellContext`x, 
                  Blank[]], 
                 Pattern[$CellContext`y, 
                  Blank[]], 
                 Pattern[$CellContext`z, 
                  Blank[]]} :> {
                 Hue[$CellContext`t/(2 Pi)], 
                 Point[{$CellContext`x, $CellContext`y, $CellContext`z}], 
                 Arrowheads[0.03], 
                 
                 Arrow[{{$CellContext`x, $CellContext`y, $CellContext`z}, \
{$CellContext`x, $CellContext`y, $CellContext`z} + 
                   0.5 Derivative[
                    1][$CellContext`Liss3D][$CellContext`t]}]}]}], 
            ImageSize -> {250, 250}, PlotRange -> All], 
           BarLegend[{"Rainbow", {0, 20}}, LegendLabel -> "Time"]}]], 
      "Specifications" :> {{{$CellContext`k$$, 5, "n"}, 2, 200, 1, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{440., {219., 230.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({{$CellContext`data = CompressedData["
1:eJxdlXs0VWkfx3Uyh5RccqlJRKaUBoM1xts7fs+idKGTxKiFSheRLlMxpItF
ZqjkMEVqjBreabq4xOmtmOo34ZCDyj2X3A/n5mwllPN2vK219zmz1uy1zj97
n72f5/n+Pt/v13LXYd+9LA0NjfWffpoa/7xG4Z93ksccwuJc7sNYDS/Dto8C
X0l9ftbxl+BeWtKg+LwK6OdV8O+akCfiRAqKUs1ipK09cCF6oPQdvwVu3LdO
vXbrJbhpe7nJpHLYkHxEcDBpSP0/+v1WUEy19mwzlUNOS3DfrRwpZK+b9Trm
+CDsd/jWfQe/EyqCUlfVaY9Ae+pcqW+7HCbe9Bd/CBcx3++FS+E9ud7lUtDh
dbKLpyn1d0xbVpzgfj8A7K+ynXw8JdC9SPJG9lEO6W8jpT3KEWb9ISi+UL6Q
d1kEX12X7QwVSiFOr6TfL4aCDwYu/oeVIkhIKjDhlQ7B5Hi5S7J0SL0OvT8p
2KZy7MRFg1DAudVkF9oLaTq+WgNpFHRyPOw3pcihaHl0nfvpfth8o0Xv8fkG
+Jdz00awlzP7H4V2TF0+ZdMLXbeLdPj8dPU+uvl/JJrqvgX/3J85ZuGd0DZt
Pmd73XM0222zZKxSxJxvDBKjrDjHvFrhSXNHgWZPN9b+2L97TDgIPoMFR7Sa
34ETdau9mdUAh6y/vJhpOYSqfdLnn4CgWKu4bsdqsKizN6nzl6IVN7TtzMtW
+It1b/vk1UlwcnPrxNCHkO/Z1xZQIkf9tdvucDY8Y/R5Dy4e54dH+fHA1e3y
dP1IoeocjpZlXsMhU6DvGJF4/gMPty9vXrBkMYXVgxbn34krkNZPAcMe8dr5
LD7WB2xe/L/lMnTdtPTJg9JmzIW/vmmz+QhbKiHYpPcFKm7UWXVvHEbVOWl9
lcDbml6gQ1rQmd2y9D89vTidtsJs/+xBNNpe9UU1NQ0ue8qnTPd1YIbdM52k
7Eb0+O8zMNcVIa2/BpFUZUatCezBsCrBFWP+b6jSwd0t9Gxg4AySbeNefmZW
P252XFSyIq8OLDqz/B3qRpCeD4tUjPJP5rkPYryoI/TR4GvIdT9+aFswhSc2
iuOanrDID5fsvUr9hjBcI+uATplQrRM9v5lk7RHX6upVIjxkqPi1UUcKuT6p
kzP+oJAXdOAHLytN4uN6+Zj1OzHWRk6VKpPl8HhL0dMNwXKk56tJ9rh6152O
leL6wIzJ9e8pUOkoi6AOVPz4GenNz7s1VCvDVnYwvgUK2u3iuDPNxUjPn03q
K06KG4QjqMiMbdl7QAZzSthbGnyEaH3i6O5VYjbhV8zws6yS44dCi4l9hcOg
0pnmQ4tERwWVWEdQGGRwPaAuoA+SIrWSfdrbMPjc+Daetzbx00zSy2mi8Kqh
8mLfnSaQx+4efxotQJofbXI0651ZpZLCXTcU7eLfb4NqDhlXYnxs784iL22i
7nvIKJxk3pv+8sPCPQ+eMnzpELdF4Qkkm0LBlojRL0RdWMis8/ymwjNv3myy
QV+/wE+PQm3mXFxmTjR/s0m4bjRyPeVITU+QiscSfHXRKufFL59y4+HpbxdG
zyHX7rlfivQYwVJG93FGB5pPXXJv/5pDE1oyvDs7KnZglFLPEapnOF/s0CX7
Bk99HZUpwTyGizMzqUjnyyNMPswln/H+FD18I0Kd5m9CcvL/nlN0a+KK2W56
JLGrzEVmNoxrGW5Vc6b51iMvRmcdy1woxGsWAsuc530Y2HdHWVRGwau3Z9Ke
+ugTK+7Jsktv+tGZ8VU9wxHN/6fnNqtTDPN6MaGtXhlQXqzmIDKWf/4Uy4Cs
EcyNmRnehQpP2vf1yxLnW0eJgfaHAWHZDFcu8W/DzOztfD9xJxxkONdnaSW5
3jMgy5zS73CMGrGSySUVJ7R/DInFHOMxz5AazE9JGs07JIELjzt2ePa+goKz
6xLG9xoSv0nZ94aNjxCY3FzH+JD2lyFpZf0pcr15FZP6MkLYwxSoOFpvcO5U
sek8svNUVO4V4yI4xeS61bLGeikbGf/NI9Eeiys6XpZDZVzei+sSGVxlckKY
VRtzsGYewTDLB7oP62GM6Z0ChjPan0aEtyY3QenYDBM9sYH6q/uhJt1XWbxi
AOMX60YuP2FEPC9f36Wzux3SmF6cZHKM9q8Rmdrk9JPtrm7oPxt9NMjhPqg4
NL/JOSxcaUxOcKqzd17sgz1076Kh+U87RneMMP42JicFgtr6pgGwvnsuJUjU
gTuZnC2zT9v/W7cx4Za+yGHLhXCb7lU1p7T/Tch3gr4ZytfDwP5YXRW7SIK/
bLTMktZS+N2Dhr3BaSZEvrXM+/01MZyjexMLmR6g88GEGHxtG/mzgxQ4hfcO
8zooNcdv3eaFLHA3JRZHBWnPUmTApXsRC8MM2RyBmMkPU+LE9i5UFI9Abn3s
1rClI3iU6SlulV9Qy5gpsT8S8GriVzl8TveemnM6X+aT9JXmgWMcCuZIJsYX
POzHEuFq083CdrTlZAak/z6f6EbE22dXULCS7jV8zfQonT/ziZvELkVfQcEj
t2VNt7PL1D74P3pEzTA=
          "], $CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}, 
         Attributes[Derivative] = {
          NHoldAll, ReadProtected}}; {$CellContext`Liss3D[
           Pattern[$CellContext`t, 
            Blank[]]] := {
           Cos[$CellContext`t], 
           Sin[3 $CellContext`t], 
           Sin[2 $CellContext`t]}}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.6636650146460543`*^9, {3.6636669486306715`*^9, 3.6636669747271643`*^9}, {
   3.6636670096001587`*^9, 3.6636670130203543`*^9}, 3.6636670481103616`*^9, {
   3.6636670795621605`*^9, 3.6636671066797113`*^9}, 3.6636675763675756`*^9, 
   3.6636682425476794`*^9, {3.663668339186207*^9, 3.663668365490711*^9}, {
   3.663668675204426*^9, 3.6636686808047466`*^9}, {3.6636688363176413`*^9, 
   3.6636688466032295`*^9}, {3.6636689097878437`*^9, 3.663668979684841*^9}, 
   3.6636690101845856`*^9, {3.663669142629161*^9, 3.6636691586330767`*^9}, {
   3.663669195169166*^9, 3.663669248580221*^9}, 3.66366930100722*^9, 
   3.6636706139363155`*^9, 3.6636706773399415`*^9, {3.6636707101568184`*^9, 
   3.6636707509291506`*^9}, 3.6636727991873045`*^9, 3.663672833602273*^9, {
   3.6636728730055265`*^9, 3.663672915757972*^9}, {3.6636729577823753`*^9, 
   3.6636730752080917`*^9}, 3.6636732924215155`*^9, 3.663704675875884*^9, 
   3.6637047342883973`*^9},
 CellLabel->"Out[187]="]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"SlideShow",
WindowToolbars->"EditBar",
WindowSize->{1202, 661},
WindowMargins->{{3, Automatic}, {Automatic, 7}},
Visible->True,
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PageHeaders->{{
   Cell[
    TextData[{
      CounterBox["Page"]}], "PageNumber"], Inherited, 
   Cell[
    TextData["Part 2"], "Header"]}, {
   Cell[
    TextData["Graphics"], "Header"], Inherited, 
   Cell[
    TextData[{
      CounterBox["Page"]}], "PageNumber"]}},
PrintingOptions->{"FacingPages"->True,
"FirstPageFace"->Right,
"FirstPageHeader"->False,
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{56.6875, 56.6875}, {70.8125, 70.8125}}},
TaggingRules:>{"NextIndexingNumber" -> 109, "IndexEntries" -> {{"i:10", 
     StyleBox["PlotRange", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:101", 
     StyleBox["Timing", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:102", "Efficiency"}, {"i:104", 
     StyleBox["ArcTan", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:105", "Two-dimensional graphics"}, {"i:107", 
     StyleBox["LogPlot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:11", 
     StyleBox[
     "AspectRatio", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:11", 
     StyleBox["ImageSize", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:12", 
     StyleBox["Show", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:13", 
     StyleBox["AxesOrigin", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:14", 
     StyleBox["AxesLabel", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:15", 
     StyleBox["PlotLabel", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:16", 
     StyleBox["Frame", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:17", 
     StyleBox["Axes", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:18", 
     StyleBox["GridLines", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:19", 
     StyleBox["FrameLabel", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:2", "Graphics"}, {"i:21", 
     StyleBox["TextStyle", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:23", 
     StyleBox["StyleForm", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:25", 
     StyleBox[
     "AbsoluteThickness", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:25", 
     StyleBox["PlotStyle", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:26", 
     StyleBox[
     "AbsoluteDashing", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:26", 
     StyleBox[
     "AbsoluteThickness", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:26", 
     StyleBox["Dashing", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:26", 
     StyleBox["Thickness", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:27", 
     StyleBox["PlotStyle", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:28", 
     StyleBox["Hue", FontFamily -> "Courier", FontWeight -> "Bold"]}, {"i:29", 
     StyleBox["Evaluate", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:30", 
     StyleBox[
     "DisplayFunction", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:30", 
     StyleBox[
     "$DisplayFunction", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:31", 
     StyleBox["Plot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:32", 
     StyleBox["PlotPoints", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:33", 
     StyleBox["Show", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:37", 
     StyleBox["Graphics3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:37", 
     StyleBox["Plot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:38", 
     StyleBox["3D ViewPoint Selector", FontWeight -> "Bold"]}, {"i:38", 
     StyleBox["ViewPoint", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:39", 
     StyleBox["Boxed", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:40", 
     StyleBox["AxesEdge", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:41", 
     StyleBox["Axes", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:42", 
     StyleBox["Lighting", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:43", 
     StyleBox[
     "AmbientLight", FontFamily -> "Courier", FontWeight -> "Bold"]}, {"i:44", 
     StyleBox[
     "DefaultColor", FontFamily -> "Courier", FontWeight -> "Bold"]}, {"i:45", 
     StyleBox[
     "LightSources", FontFamily -> "Courier", FontWeight -> "Bold"]}, {"i:46", 
     StyleBox["RGBColor", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:48", 
     StyleBox[
     "ContourPlot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:49", 
     StyleBox[
     "ContourGraphics", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:5", 
     StyleBox["Plot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:51", 
     StyleBox["Contours", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:52", 
     StyleBox[
     "DensityPlot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:53", 
     StyleBox["PlotPoints", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:56", 
     StyleBox[
     "ParametricPlot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:57", 
     StyleBox[
     "ParametricPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:62", 
     StyleBox["Clear", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:64", "Torus"}, {"i:65", 
     StyleBox["Help Browser", FontSlant -> "Italic"]}, {"i:66", 
     StyleBox["Graphics`", FontFamily -> "Courier"]}, {"i:67", 
     StyleBox["ContourPlot3D`", FontFamily -> "Courier"]}, {"i:67", 
     StyleBox["Contours", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:70", 
     StyleBox["BarChart", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:70", 
     StyleBox["LogPlot", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:71", 
     StyleBox["BarChart", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:74", 
     StyleBox["Shadow", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:74", 
     StyleBox[
     "ShadowPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {"i:76", 
     StyleBox["ShowLegend", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:77", 
     StyleBox["PlotField`", FontFamily -> "Courier"]}, {"i:77", 
     StyleBox["PlotField3D`", FontFamily -> "Courier"]}, {"i:78", 
     StyleBox[
     "VectorHeads", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:83", 
     StyleBox["Remove", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:85", 
     StyleBox["ParametricPlot3D`", FontFamily -> "Courier"]}, {"i:85", 
     StyleBox[
     "CylindricalPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:85", 
     StyleBox[
     "SphericalPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:86", 
     StyleBox[
     "SphericalPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:87", 
     StyleBox[
     "CylindricalPlot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:88", 
     StyleBox["PiScale", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:88", 
     StyleBox["Ticks", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:9", "Options"}, {"i:9", 
     StyleBox["Graphics", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:90", 
     StyleBox["Animate", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:91", {
      StyleBox["Animate", FontWeight -> "Bold"], " ", 
      StyleBox["Selected Graphics", FontWeight -> "Bold"]}}, {"i:92", 
     StyleBox["PlotRange", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:93", 
     StyleBox["SpinShow", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:97", "Adobe Illustrator"}, {"i:97", "Illustrator"}, {"i:98", 
     StyleBox["Copy As", FontWeight -> "Bold"]}, {"i:98", 
     StyleBox["Save Selection As\[Ellipsis]", FontWeight -> "Bold"]}, {"i:99", 
     StyleBox["BoxRatios", FontFamily -> "Courier", FontWeight -> "Bold"]}, {
    "i:103", "Global", "variables"}, {"i:103", "Variables", "global"}, {
    "i:105", "Graphics", "two-dimensional"}, {
    "i:106", "Three-dimensional", "graphics"}, {
    "i:108", "Options", "for three-dimensional graphics"}, {
    "i:13", "Origin", "shift"}, {"i:14", "Label", "axes"}, {
    "i:20", "Formats", "character"}, {"i:24", "Graphics", "with formulas"}, {
    "i:24", "Titles", "containing formulas"}, {"i:26", "Lines", "dashed"}, {
    "i:3", 
     StyleBox["BasicCalculations", FontWeight -> "Bold"], 
     StyleBox["Graphics", FontWeight -> "Bold"]}, {"i:3", 
     StyleBox["Palettes", FontWeight -> "Bold"], 
     StyleBox["BasicCalculations", FontWeight -> "Bold"]}, {
    "i:30", "Display", "suppress"}, {"i:35", 
     StyleBox["BasicCalculations", FontWeight -> "Bold"], 
     StyleBox["Graphics", FontWeight -> "Bold"]}, {"i:35", 
     StyleBox["Palettes", FontWeight -> "Bold"], 
     StyleBox["BasicCalculations", FontWeight -> "Bold"]}, {
    "i:37", "Options", {"of ", 
      StyleBox["Plot3D", FontFamily -> "Courier", FontWeight -> "Bold"]}}, {
    "i:38", 
     StyleBox["Input", FontWeight -> "Bold"], 
     StyleBox["3D ViewPoint Selector", FontWeight -> "Bold"]}, {
    "i:58", "Space", "curves"}, {"i:6", "Suppressing", "the output cell"}, {
    "i:60", "Coordinates", "spherical"}, {"i:65", 
     StyleBox["Add-ons", FontWeight -> "Bold"], 
     StyleBox["Standard Packages", FontWeight -> "Bold"]}, {"i:65", 
     StyleBox["Standard Packages", FontWeight -> "Bold"], 
     StyleBox["Graphics", FontWeight -> "Bold"]}, {"i:67", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["ContourPlot3D`", FontFamily -> "Courier"]}, {
    "i:70", "Plots", "logarithmic"}, {"i:70", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["Graphics`", FontFamily -> "Courier"]}, {"i:73", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["Graphics3D`", FontFamily -> "Courier"]}, {"i:75", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["Legend`", FontFamily -> "Courier"]}, {
    "i:77", "Field", "vector"}, {"i:77", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["PlotField`", FontFamily -> "Courier"]}, {"i:77", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["PlotField3D`", FontFamily -> "Courier"]}, {
    "i:78", "Field", "velocity"}, {"i:80", 
     StyleBox["Kernel", FontWeight -> "Bold"], 
     StyleBox["Quit Kernel", FontWeight -> "Bold"]}, {"i:81", 
     StyleBox["Add-ons", FontWeight -> "Bold"], 
     StyleBox["Working with Add-ons", FontWeight -> "Bold"]}, {"i:81", 
     StyleBox["Working with Add-ons", FontWeight -> "Bold"], 
     StyleBox["Loading Packages", FontWeight -> "Bold"]}, {"i:85", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["ParametricPlot3D`", FontFamily -> "Courier"]}, {"i:88", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["Graphics`", FontFamily -> "Courier"]}, {"i:89", 
     StyleBox["Graphics`", FontFamily -> "Courier"], 
     StyleBox["Animation`", FontFamily -> "Courier"]}, {"i:91", 
     StyleBox["Cell", FontWeight -> "Bold"], {
      StyleBox["Animate", FontWeight -> "Bold"], " ", 
      StyleBox["Selected Graphics", FontWeight -> "Bold"]}}, {
    "i:94", "Three-dimensional", "animations"}, {"i:98", 
     StyleBox["Edit", FontWeight -> "Bold"], 
     StyleBox["Copy As", FontWeight -> "Bold"]}, {"i:98", 
     StyleBox["Edit", FontWeight -> "Bold"], 
     StyleBox["Save Selection As\[Ellipsis]", FontWeight -> "Bold"]}, {
    "i:1", "Graphics", "", ""}, {"i:10", "Range", "changing", ""}, {
    "i:100", "Graphics", "", ""}, {
    "i:106", "Graphics", "three-dimensional", ""}, {
    "i:11", "Axes", "scale", ""}, {"i:11", "Size", "of a graphic", ""}, {
    "i:13", "Axes", "shift", ""}, {"i:14", "Axes", "labels", ""}, {
    "i:14", "Quotation marks", "", ""}, {"i:14", "Strings", "", ""}, {
    "i:15", "Title", "", ""}, {"i:16", "Graphics", "frame", ""}, {
    "i:17", "Axes", "suppress", ""}, {"i:18", "Grid", "", ""}, {
    "i:2", "Graphs", "", ""}, {
    "i:20", "Character formats", "in graphics", ""}, {
    "i:20", "Graphics", "character formats", ""}, {
    "i:22", "Graphics", "titles", ""}, {
    "i:22", "Titles", "in graphics", ""}, {
    "i:23", "Graphics", "styles", ""}, {
    "i:23", "Styles", "in graphics", ""}, {
    "i:24", "Formulas", "in titles", ""}, {"i:25", "Graphics", "lines", ""}, {
    "i:25", "Lines", "dashed", ""}, {"i:25", "Lines", "thickness", ""}, {
    "i:28", "Colors", "", ""}, {"i:28", "Graphics", "colors", ""}, {
    "i:29", "Evaluation", "enforcing", ""}, {
    "i:30", "Graphics", "suppress the display", ""}, {
    "i:31", "Poles", "", ""}, {"i:31", "Singularities", "", ""}, {
    "i:32", "Graphics", "plot points", ""}, {
    "i:33", "Graphics", "superimpose", ""}, {
    "i:34", "Functions", "of two variables", ""}, {
    "i:34", "Graphs", "", ""}, {"i:35", "Documentation", "online", ""}, {
    "i:35", "Online documentation", "", ""}, {"i:36", "Surfaces", "", ""}, {
    "i:4", "Functions", "of one variable", ""}, {
    "i:40", "Axes", "positioning", ""}, {"i:44", "Colors", "of lines", ""}, {
    "i:46", "Colors", "", ""}, {"i:47", "Sphere", "", ""}, {
    "i:48", "Contours", "", ""}, {"i:48", "Mappings", "", ""}, {
    "i:50", "Shadings", "", ""}, {"i:53", "Grid", "", ""}, {
    "i:54", "Converting", "graphics", ""}, {
    "i:54", "Graphics", "converting", ""}, {"i:55", "Curves", "", ""}, {
    "i:55", "Mappings", "", ""}, {"i:55", "Plots", "parametric", ""}, {
    "i:55", "Surfaces", "", ""}, {"i:58", "Curves", "in space", ""}, {
    "i:59", "Sphere", "", ""}, {"i:59", "Surfaces", "in space", ""}, {
    "i:6", "Output", "suppressing", ""}, {
    "i:60", "Spherical coordinates", "", ""}, {
    "i:61", "Sphere", "surface of", ""}, {
    "i:61", "Surfaces", "of spheres", ""}, {
    "i:62", "Definitions", "clearing", ""}, {"i:63", "Pillow", "", ""}, {
    "i:68", "Contours", "three-dimensional", ""}, {
    "i:69", "Graphics", "two-dimensional, tools", ""}, {
    "i:69", "Two-dimensional graphics", "tools for", ""}, {
    "i:7", "Functions", "plotting several", ""}, {"i:7", "Lists", "", ""}, {
    "i:70", "Error", "bars", ""}, {"i:70", "Logarithmic plots", "", ""}, {
    "i:70", "Pie charts", "", ""}, {
    "i:72", "Graphics", "three-dimensional, tools", ""}, {
    "i:72", "Three-dimensional", "graphics, tools for", ""}, {
    "i:75", "Legends", "", ""}, {"i:77", "Mappings", "", ""}, {
    "i:77", "Vector", "field", ""}, {"i:78", "Velocity field", "", ""}, {
    "i:79", "Collisions", "of names", ""}, {
    "i:79", "Names", "collisions of", ""}, {
    "i:8", "Definitions", "delayed", ""}, {
    "i:8", "Definitions", "immediate", ""}, {"i:8", "Graphs", "", ""}, {
    "i:82", "Contexts", "global", ""}, {"i:82", "Global", "context", ""}, {
    "i:84", "Parametric plots", "", ""}, {
    "i:84", "Plots", "parametric", ""}, {"i:89", "Animations", "", ""}, {
    "i:89", 
     StyleBox["Cell", FontWeight -> "Bold"], {
      StyleBox["Animate", FontWeight -> "Bold"], " ", 
      StyleBox["Selected Graphics", FontWeight -> "Bold"]}, ""}, {
    "i:9", "Options", {"of ", 
      StyleBox["Graphics", FontFamily -> "Courier", FontWeight -> "Bold"]}, 
     ""}, {"i:9", "Options", {"of ", 
      StyleBox["Plot", FontFamily -> "Courier", FontWeight -> "Bold"]}, ""}, {
    "i:9", "Transformation rules", "", ""}, {
    "i:94", "Animations", "three-dimensional", ""}, {
    "i:95", "Export", "of graphics", ""}, {
    "i:95", "Graphics", "export", ""}, {"i:96", "EPS format", "", ""}, {
    "i:96", "Formats", "EPS", ""}}},
CellLabelAutoDelete->False,
Magnification:>1.25 Inherited,
FrontEndVersion->"11.0 for Microsoft Windows (64-bit) (July 28, 2016)",
StyleDefinitions->"Modelstyle-EN.nb",
IndexCreationOptions -> {"Format" -> "Text"}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "2.3"->{
  Cell[567, 22, 122, 2, 116, "MainTitle",
   CellTags->"2.3"]},
 "SlideShowHeader"->{
  Cell[4157, 130, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[111704, 2180, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[241787, 4731, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"],
  Cell[368089, 7135, 64, 1, 1, "SlideShowNavigationBar",
   CellTags->"SlideShowHeader"]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"2.3", 479464, 9628},
 {"SlideShowHeader", 479550, 9631}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 122, 2, 116, "MainTitle",
 CellTags->"2.3"],
Cell[692, 26, 283, 3, 54, "Text"],
Cell[978, 31, 410, 12, 54, "Text"],
Cell[1391, 45, 422, 12, 90, "Text"],
Cell[1816, 59, 527, 11, 54, "Text"],
Cell[2346, 72, 663, 17, 54, "Text"],
Cell[CellGroupData[{
Cell[3034, 93, 98, 1, 69, "Section"],
Cell[CellGroupData[{
Cell[3157, 98, 204, 2, 43, "Item"],
Cell[3364, 102, 218, 3, 43, "Item"],
Cell[3585, 107, 511, 16, 43, "Item"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[4157, 130, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[4246, 135, 140, 2, 68, "MainSection"],
Cell[CellGroupData[{
Cell[4411, 141, 140, 2, 92, "WolframAlphaLong"],
Cell[4554, 145, 89475, 1581, 20141, "Print"]
}, Closed]],
Cell[94044, 1729, 949, 28, 91, "Text"],
Cell[94996, 1759, 351, 12, 81, "Input"],
Cell[CellGroupData[{
Cell[95372, 1775, 162, 2, 57, "Subsection"],
Cell[CellGroupData[{
Cell[95559, 1781, 1686, 45, 228, "Input"],
Cell[97248, 1828, 2649, 54, 502, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[99943, 1888, 208, 3, 57, "Subsection"],
Cell[CellGroupData[{
Cell[100176, 1895, 1946, 50, 228, "Input"],
Cell[102125, 1947, 2800, 56, 512, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[104971, 2009, 261, 3, 57, "Subsection"],
Cell[CellGroupData[{
Cell[105257, 2016, 2130, 56, 252, "Input"],
Cell[107390, 2074, 2842, 59, 566, "Output"]
}, {2}]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[110290, 2140, 130, 2, 68, "MainSection"],
Cell[110423, 2144, 178, 2, 39, "Th-Env"],
Cell[110604, 2148, 161, 2, 39, "Th-Env"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110802, 2155, 191, 3, 68, "MainSection"],
Cell[110996, 2160, 176, 2, 39, "Th-Env"],
Cell[111175, 2164, 213, 3, 39, "Th-Env"],
Cell[111391, 2169, 264, 5, 39, "Th-Env"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[111704, 2180, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[111793, 2185, 200, 2, 68, "MainSection"],
Cell[CellGroupData[{
Cell[112018, 2191, 140, 2, 92, "WolframAlphaLong"],
Cell[112161, 2195, 89475, 1581, 20141, "Print"]
}, Closed]],
Cell[201651, 3779, 949, 28, 91, "Text"],
Cell[CellGroupData[{
Cell[202625, 3811, 206, 2, 57, "Subsection"],
Cell[CellGroupData[{
Cell[202856, 3817, 2671, 70, 320, "Input"],
Cell[205530, 3889, 2996, 59, 522, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[208575, 3954, 257, 3, 48, "Subsection"],
Cell[CellGroupData[{
Cell[208857, 3961, 3869, 99, 468, "Input"],
Cell[212729, 4062, 3567, 71, 492, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[216345, 4139, 290, 4, 48, "Subsection"],
Cell[CellGroupData[{
Cell[216660, 4147, 3396, 78, 533, "Input"],
Cell[220059, 4227, 4791, 95, 482, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[224896, 4328, 396, 5, 57, "Subsection"],
Cell[225295, 4335, 120, 1, 54, "Text"],
Cell[CellGroupData[{
Cell[225440, 4340, 4801, 115, 635, "Input"],
Cell[230244, 4457, 3130, 66, 492, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[233420, 4529, 381, 6, 57, "Subsection"],
Cell[CellGroupData[{
Cell[233826, 4539, 4142, 106, 438, "Input"],
Cell[237971, 4647, 3746, 76, 702, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[241787, 4731, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[241876, 4736, 181, 2, 68, "MainSection"],
Cell[CellGroupData[{
Cell[242082, 4742, 213, 3, 57, "Subsection"],
Cell[242298, 4747, 363, 12, 59, "Text"],
Cell[CellGroupData[{
Cell[242686, 4763, 601, 15, 120, "Input"],
Cell[243290, 4780, 11101, 194, 189, 6486, 117, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[254406, 4977, 69, 1, 78, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[254512, 4983, 156, 2, 48, "Subsection"],
Cell[254671, 4987, 567, 19, 187, "Text"],
Cell[CellGroupData[{
Cell[255263, 5010, 547, 15, 1575, "Input"],
Cell[255813, 5027, 18981, 323, 846, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[274840, 5356, 208, 3, 48, "Subsection"],
Cell[275051, 5361, 531, 17, 112, "Text"],
Cell[275585, 5380, 294, 3, 112, "Text"],
Cell[CellGroupData[{
Cell[275904, 5387, 615, 17, 1575, "Input"],
Cell[276522, 5406, 23166, 391, 846, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[299734, 5803, 244, 3, 48, "Subsection"],
Cell[CellGroupData[{
Cell[300003, 5810, 126, 2, 996, "WolframAlphaLong"],
Cell[300132, 5814, 47167, 938, 26557, "Print"]
}, Closed]],
Cell[347314, 6755, 686, 18, 626, "Text"],
Cell[348003, 6775, 329, 4, 758, "Text"],
Cell[CellGroupData[{
Cell[348357, 6783, 811, 22, 1575, "Input"],
Cell[349171, 6807, 18845, 320, 2176, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[368089, 7135, 64, 1, 1, "SlideShowNavigationBar",
 CellTags->"SlideShowHeader"],
Cell[CellGroupData[{
Cell[368178, 7140, 408, 5, 85, "MainSection"],
Cell[368589, 7147, 158, 2, 48, "Th-Env"],
Cell[368750, 7151, 723, 20, 66, "Text"],
Cell[369476, 7173, 303, 10, 97, "Input"],
Cell[CellGroupData[{
Cell[369804, 7187, 206, 2, 71, "Subsection"],
Cell[CellGroupData[{
Cell[370035, 7193, 1851, 48, 183, "Input"],
Cell[371889, 7243, 59248, 1351, 458, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[431183, 8600, 257, 3, 60, "Subsection"],
Cell[CellGroupData[{
Cell[431465, 8607, 3843, 94, 438, "Input"],
Cell[435311, 8703, 3823, 76, 612, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[439180, 8785, 363, 4, 60, "Subsection"],
Cell[CellGroupData[{
Cell[439568, 8793, 3977, 90, 523, "Input"],
Cell[443548, 8885, 6596, 123, 612, "Output"]
}, {2}]]
}, Closed]],
Cell[CellGroupData[{
Cell[450190, 9014, 357, 4, 60, "Subsection"],
Cell[CellGroupData[{
Cell[450572, 9022, 5844, 132, 1016, "Input"],
Cell[456419, 9156, 6844, 130, 612, "Output"]
}, {2}]]
}, Closed]]
}, Open  ]]
}, Open  ]]
}
]
*)

